TDataSource i overload
24.10.2011. u 09:58 · pre 182 meseci
#1
Radim nasljednika kontrole TDataSource. Kako napraviti overrload events-a OnDataChange?
pokušao sam ovako pa ne ide... ne znam kako da mu kažem da izvrši proc. DoOnDataChage.
Isto tako ne znam kako da pozovem korisničku tj. onu koja je definirana van klase.
pokušao sam ovako pa ne ide... ne znam kako da mu kažem da izvrši proc. DoOnDataChage.
Isto tako ne znam kako da pozovem korisničku tj. onu koja je definirana van klase.
Code:
TMyDataSource = class(TDataSource)
private
{ Private declarations }
fOnDataChange: TDataChangeEvent;
...
published
{ Published declarations }
property OnDataChange: TDataChangeEvent read fOnDataChange write fOnDataChange;
end;
procedure TMyDataSource.DoOnDataChange;
begin
ShowMessage('mjenja 2.1');
// da li poziv može:
if Assigned(OnDataChange) then OnDataChange;
end;
TMyDataSource = class(TDataSource)
private
{ Private declarations }
fOnDataChange: TDataChangeEvent;
...
published
{ Published declarations }
property OnDataChange: TDataChangeEvent read fOnDataChange write fOnDataChange;
end;
procedure TMyDataSource.DoOnDataChange;
begin
ShowMessage('mjenja 2.1');
// da li poziv može:
if Assigned(OnDataChange) then OnDataChange;
end;