如何自定义消息框的位置？、、、

Question

如题不能自己做窗体
这样不能弹出多个想要实现同时弹出多个消息框 不在同一个位置。

Answer 1

ShowMessagePos(Msg,X,Y);我认为如果多个一起弹，不如用窗体再来做。

Answer 2

我昨天才写了几段代码，你看适合不？var
    P:Tpoint;  
begin
  p.x := Form1.Left+(Form1.Width div 2)-50; //居中 下同；
  p.y := Form1.Top+(Form1.Height div 2)-50;
  ShowMessagePos('提示',p.X,p.Y);
end;

Answer 3

var
  Msg:string;
begin
 Msg:='信息内容.............';
 for x=0 to 100
  for y=0 to 100
  begin
    if x/y=20 then
     begin
       ShowMessagePos(Msg,x,y);
     end;
  end;
end;

Answer 4

你弄10个线程不就可以同时弹出10个showmessage了吗？
如果弄成窗体就可以不用多线程，你Create十次show十次不就可以了吗？你如果是加点分，我就直接贴代码了。这点分你自己研究，只给思路。

Answer 5

为什么要做 10 个窗体？你创建一个窗体，然后在需要时候动态建立窗体不就完了？你在动态创建窗体后，代码修改掉窗体里面的需要的内容，然后再 Show 出来。