Delphi mehrere MessageDlgPos auf einmal

Thema durchsuchen

Ansicht

Themen-Optionen

mehrere MessageDlgPos auf einmal

Ein Thema von about_blank · begonnen am 7. Jul 2008 · letzter Beitrag vom 7. Jul 2008

Thema geschlossen

mschnell

Registriert seit: 13. Sep 2006
27 Beiträge

Re: mehrere MessageDlgPos auf einmal

7. Jul 2008, 14:53

ja geht auch

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm2.Button4Click(Sender: TObject);

var

  i: integer;

  form: array [0..10] of TForm;

begin

  randomize;

  for i:= 0 to high(form) do begin

    form[i]:= CreateMessageDialog('test', mtWarning, []);

    form[i].Left:= random(Screen.Width);

    form[i].Top:=  random(Screen.Height);

    form[i].Show;

  end;

end;