t_id
967
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
1022449521 | 1027334 | True | False | Successfully run |
Record count: 1
{$MODE DELPHI} uses classes; type TNotifyEventA = procedure (Sender:TObject) of object; TWOLBetaObject = class; TwolBrushes = class(TPersistent) private FOnChange :TNotifyEventA; public property OnChange :TNotifyEventA read FOnChange Write FOnChange; end; TWOLBetaObject = class(TComponent) public constructor Create(AOwner:TComponent); protected procedure DoBrushChange(Sender:TObject); private FBrush : TWolBrushes; end; procedure TWOLBetaObject.DoBrushChange(Sender:TObject); var DC:longint; begin end; constructor TWOLBetaObject.Create(AOwner:TComponent); begin FBrush :=TWOLBrushes.Create; FBrush.OnChange:=DoBrushChange; end; begin end.