|
Registriert seit: 10. Feb 2006
255 Beiträge
Delphi XE2 Professional
|
AW: OnShow von Frames selbst erstellen
26. Okt 2011, 13:10
Delphi-Quellcode:
interface
TMyFrame = class(TFrame)
private
FOnShow: TNotifyEvent;
protected
procedure DoShow;
published
property OnShow: TNotifyEvent read FOnShow write FOnShow;
end;
implementation
procedure TMyFrame.DoShow;
begin
inherited DoShow;
if assigned(FOnShow) then
FOnShow(self);
end;
So sollte es gehen.
"Wer seinem Computer Mist erzählt, muss immer damit rechnen..." (unbekannt)
"Der Computer rechnet damit, dass der Mensch denkt..." (auch unbekannt)
 mein blog
|