Message gelöcht ohne timer

[hoika]

Hallo,

alle MessageDlgX rufen intern ja CreateMessageDialog auf,
um den Dialog zu erzeugen.

Return-Wert ist TForm und muss noch mit ShowModal aufgerufen werden.

Ein Free oder .Close der Variable sollte eigentlich klappen.

also

Delphi-Quellcode:

MyDlg: TForm;;  // nicht lokal, sondern direkt im aufrufenden Formular definieren.

procedure TForm1.DoShowMessageDlg;
var
  iDlgResult: Word;
begin
  MyDlg:= CreateMessageDialog(... );

  Timer1.Enabled:= True;

  iDlgResult:= MyDlg.ShowModal;
 

  if MyDlg<>NIL then
  begin
    if iDlgResult ...
  end;
end;

procedure TForm1.OnTimer;
begin
  FreeAndNIL(MyDlg);
end;

so in etwa

Heiko