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