OnExit wird nicht ausgelöst

[Hansa]

Hi,

Delphi-Quellcode:

procedure TForm1.edKuNrExit(Sender: TObject);
begin
//  showmessage ('Sonderkunde');
  KuAnrede.Show;    // Label

Ist das ShowMessage nicht auskommentiert, dann lande ich in der Prozedur. Falls es das ist, dann passiert absolut nichts. OnExit wird nicht erreicht ! Was ist das ?

[mirage228]

Also bei mir geht das mit ShowMessage (D7 Pro Upd1) ...

mfG
mirage228

[himitsu]

Ist KuAnrede.Show; eventuell irgendetwas, was Delphi für "sinnlos" erachten könnte, wenn dies so ist, dann läßt Delphi das ja auch und wenn dann auch nicht anderes mehr in der Prozedur drin ist, wird dies auch weggelassen, aber an diesem bissl Code kann man das ja nur schwer erraten -.-''

[add]
@mirage228
MIT geht es bei ihm auch, nur nicht OHNE ... auf Verneinungen (nicht ...) achten

[Christian Seehase]

Moin Hansa,

bei mir klappt das problemlos (D5 Pro SP1, D7 PE).

Setz' doch mal einen Breakpoint auf die Show-Zeile.

[Hansa]

Das ist nicht sinnlos. Vorher lese ich die Adresse. In dem Label soll dann die Anrede erscheinen. Aber das wichtige ist : wieso komme ich in die Prozedur, sofern innerhalb derselben eine Showmessage steht ? Die Anrede ist allerdings in dem Testfall tatsächlich leer.

Und nochmals zur Klarstellung : Steht Showmessage im Code, dann geht es wie gewünscht. Sonst nicht !!

[Christian Seehase]

Moin Hansa,

Zitat von Hansa:

...wieso komme ich in die Prozedur, sofern innerhalb derselben eine Showmessage steht ?

vielleicht wird das ja sonst wirklich "wegoptimiert".

Was sagt der Breakpoint dazu?

[himitsu]

Sind bei D8 denn keine grünen Pünktchen mehr auf der linken Seite, welche fehlen, wenn der Code daneben nicht mitcompiliert wurde?

[alcaeus]

Moin Hansa,

versuch mal Visible auf True zu setzen, anstatt .Show aufzurufen. Vielleicht klappt das..

Greetz
alcaeus