OnExit-Event auf Instanz zugreifen?

[thomas29h2000]

Hi Leute,

Mein Problem ist ich hab mir aus Edit ne Koponete erstellt diese soll beim OnExit Event überprüfen ob der Inhalt ein Datum ist. Frage wie kann ich auf die eigene Instanz zugreifen?

mfg thomas

[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 :zwinker:

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" :zwinker:
Gruß
Stephan :dance:

[thomas29h2000]

Danke das war genau das was ich gesucht hab :lol:
mfg Thomas