Form-Fragen

[Snoop007]

das ereignis close tritt ein, wenn die form nichtmehr activ ist

Code:

...
type
  TForm1 = class(TForm)
  private
    { Private-Deklarationen }
  public
    procedure WProc(var Message: TMessage)  ; message WM_KILLFOCUS;
  end;
...

der aufruf

Code:

procedure TForm1.WProc(var Message: TMessage)  ;
begin
  close;
end;

wenn du eine meldung ausgeben möchtest, wird diese solange angezeit, bis die form wieder activ ist