Self, Sender etc.

[Christian Seehase]

Moin Minz,

Zitat von Minz:

Bei Self hat Timer1 kein übergeordnetes Objekt, ist also nicht abhängig.

Nur um das was Sanchez geschrieben hat noch einmal zu verdeutlichen:

Self bezieht sich immer auf das Objekt, in dessen Methode Create aufgerufen wird.

Wenn Du z.B. ein Formular Form1 (Klasse TForm1) hast, auf dem sich ein Button1 befindet, und beim Anklicken des Buttons soll der Timer erzeugt werden, würdest das ja so aussehen.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender : TObject);
begin
  Timer1 := TTimer.Create(self);
end;

self wäre hier Form1.

Um unabhängig zu sein, kannst Du einfach nil eintragen, bist dann aber auch selber dafür verantwortlich das Objekt wieder zu zerstören.

Sender direkt ginge nicht, da es nicht vom Typ TComponent ist. Du könntest es allerdings so machen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender : TObject);
begin
  Timer1 := TTimer.Create(Sender as TButton);
end;

Das jetzt mal ohne Sicherheitsüberprüfung, ob der Sender denn überhaupt ein TButton ist.

Sinn macht das aber eigentlich nur, wenn es sich hierbei um die Methode eines dynamisch erstellten Controls handelt, dass auch von Dir wieder gezielt gelöscht wird. Ansonsten spielt es keine Rolle, ob Du nun self oder Sender as TButton verwendest, da ein zur Entwurfszeit erstellter Button normalerweise das Formular (oder eine dem Formular untergeordnete Container Kompo) als Owner hat, und somit sowohl der Button als auch der Timer beim Zerstören des Formulares zerstört werden würden.