Wenn man die Klassenvervollständigung nutzt, geschieht das sogar automatisch
[edit] Um etwas genauer zu werden: ich habe mal diese Klassen deklariert
Delphi-Quellcode:
type
TOwner = class(TComponent)
public
destructor Destroy; override;
end;
TMember = class(TComponent)
public
destructor Destroy; override;
procedure SayHello;
end;
Nun den Cursor irgendwo in der TOwner-Klasse platziert und CTRL + SHIFT + C gedrückt, dann den Cursor in die TMember-Klasse und dasselbe noch einmal. Ich poste hier mal den gesamten Source, die ShowMessage-Aufrufe sind von mir, der Rest wurde automatisch generiert:
Delphi-Quellcode:
{ TOwner }
destructor TOwner.Destroy;
begin
ShowMessage('Owner wird freigegeben');
inherited;
end;
{ TMember }
destructor TMember.Destroy;
begin
ShowMessage('Member wird freigegeben');
inherited;
end;
procedure TMember.SayHello;
begin
ShowMessage('Hallo vom Member');
end;
Nun noch ein kleiner Test:
Delphi-Quellcode:
procedure TFormTest.Button1Click(Sender: TObject);
var
Owner: TOwner;
Member: TMember;
begin
Owner := TOwner.Create(nil);
try
Member := TMember.Create(Owner);
Member.SayHello;
finally
Owner.Free;
end;
end;
[/edit]