Einzelnen Beitrag anzeigen

Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.617 Beiträge
 
Delphi 12 Athens
 
#3

AW: TComponents handhaben

  Alt 16. Sep 2014, 16:29
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]
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen

Geändert von DeddyH (16. Sep 2014 um 16:45 Uhr)
  Mit Zitat antworten Zitat