mehrere MessageDlgPos auf einmal

[mschnell]

ja geht auch

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;