Fenster verschwindet

[Hansa]

Hi,

@phlux: Daran liegts nicht.

hier liegt der Hund begraben :

Code:

procedure Form1.Edit1Exit(Sender: TObject);
begin
  IF Edit1.text <> '' THEN BEGIN
    Edit1.Enabled := false;
    Transaction.StartTransaction;
    ....
  END
  ELSE BEGIN
    Edit1.Text := '';
    Edit1.SetFocus;
  END;
end;

So siehts jetzt aus. Ursache gefunden Patient noch tot. Auch wenn ich ein leeres Edit - Feld nicht zulassen will, der Button muß eine Ausnahme bilden, er dient nämlich gerade zum Suchen, falls jemand die Nr. die in das Feld eingegeben werden soll nicht auswendig weiß. Im ButtonClick steht nur Form3.Show.

Gruß
Hansa