OnExit-Event auf Instanz zugreifen?

[Steve]

Hi,

[edit] Schlechtere Lösung: [/edit]
Self

Delphi-Quellcode:

procedure TMyEdit.MyOnExit(Sender: TObject);
begin
  if self.text='foo' then ShowMessage('Foo!');
end;

Edit: Bessere Lösung:
Falls die OnExit-Behandlung nicht in einer TMyEdit-Instanz selbst steckt, klappt das nicht mehr. Benutze den Parameter Sender, denn genau dafür ist er ja da

Delphi-Quellcode:

procedure TSomeComponent.MyOnExit(Sender: TObject);
begin
  If Sender<>NIL then
    if sender is TMyEdit then
      if (Sender As TMyEdit).text='foo' then ShowMessage('Foo!');
end;

Die zweite Lösung is wohl generell die "korrektere"
Gruß
Stephan