Forum: Sonstige Fragen zu Delphi
Delphi
by mschnell,
7. Jul 2008
ja geht auch
procedure TForm2.Button4Click(Sender: TObject);
var
i: integer;
form: array of TForm;
begin
randomize;
for i:= 0 to high(form) do begin
form:= CreateMessageDialog('test', mtWarning, );
Forum: Sonstige Fragen zu Delphi
Delphi
by mschnell,
7. Jul 2008
Was MessageDlgPos im endeffekt macht ist ein ShowModal auf ein TForm.
Und weil ShowModal erst abgearbeitet werden muss bevor es weiter geht kann es nicht meherere MessageDlgs gleichzeitig geben.
Um das zu umgehen müsstest du die Dialoge in der Schleife wohl selbst erstellen und einfach mit .show zeigen.
in etwa so
var
i: integer;
form: array of TForm;
begin