Form schließt sich nicht mit Close

[Gremlin]

Zitat von messie:

Zitat von Gremlin:

Warum schickst du dir nicht selbst im FormShow eine Message, die dann dein FormClose aufrufen kann, somit sparst du dir den Timer?

Weil ich das noch nie gemacht habe....

Delphi-Quellcode:

const
  WM_CloseMeNow = WM_USER+1;

type
  [...]
  private
    procedure FormCloseMeNow(var Msg:TMessage); message WM_CloseMeNow;
  public  
  [...]

procedure TForm1.FormShow(Sender: TObject);
begin
  [...]
  PostMessage(Handle, WM_CloseMeNow, 0, 0);
end;

procedure TForm1.FormCloseMeNow(var Msg:TMessage);
begin
  Close;
end;