Aya - Fr 20.12.02 02:25
Titel: OnCreate
Hi,
Ich bastel an einer Komponente rum, die etwas im OnCreate-Ereigniss des Forms hinzufügen muß...
ich mache das derzeit so:
Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
| type
private
OldCreate: procedure(Sender: TObject);
[...]
Constructor TMyKompo.Create(Owner: TComponent);
begin
Inherited Create(Owner);
OldCreate:=@TForm(Owner).OnCreate;
TForm(Owner).OnCreate:=fCreate;
end;
procedure TMyKompo.fCreate(Sender: TObject);
begin
//Mein Code
if Assigned(OldCreate) then
OldCreate(Sender);
end; |
Klappt auch soweit, einziges problem ist.. wenn ich Delphi beende, und mein Projekt dann wieder öffne, ist das OnCreate-Ereigniss im ObjektInspektor leer...
Gibt es dafür noch andere möglichkeiten???
Au'revoir,
Aya