Guten Nachmittag erstmals,
also:
Ich will ein Kleines Programm schreiben, dann bei einem Klick immer MessageDlgPos ausgibts.
Code:
procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
begin
randomize;
repeat
MessageDlgPos('Test', mtInformation, [], 0, random(Screen.Width), random(Screen.Height));
MessageDlgPos('Test', mtError, [], 0, random(Screen.Width), random(Screen.Height));
MessageDlgPos('Test', mtWarning, [], 0, random(Screen.Width), random(Screen.Height));
MessageDlgPos('Test', mtConfirmation, [], 0, random(Screen.Width), random(Screen.Height));
until False ;
end;
Also so, dass man sie nicht schleißen muss/soll.
Könntet ihr mir vllt weiter helfen.
Vielen Dank im Voraus.
mfg.