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