TComponents handhaben

[DeddyH]

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]