如何弹出MessageBox对话框?(50)

bj_2005 · 2009-07-17

procedure TForm1.Button1Click(Sender: TObject);begin Form2.ShowModal; MessageBox(Handle,'这是Form2 ','提示!',49);end;想在显示Form2同时弹出MessageBox对话框,可是你不关闭Form2,那个MessageBox就是不弹出,先生教教我如何让MessageBox弹出来!!

sanguomi1 · 2009-07-17

代码:

procedure TForm1.Button1Click(Sender: TObject);begin    Form2.Show;    MessageBox(Handle,'这是Form2 ','提示!',49);end;

bj_2005 · 2009-07-18

to sanguomi1不行哦,Form2被Form1挡住了,看不到Form2.

de410 · 2009-07-18

procedure TForm1.Button1Click(Sender: TObject);begin Form2.Show; application.MessageBox('这是Form2 ','提示!',49);end;

delhpi · 2009-07-18

2个都是模态窗口,似乎要用其他方法,不知道线程是否可以

bbscom · 2009-07-18

将MessageBox放到TForm2.FormCreateprocedure TForm2.FormCreate(Sender: TObject);begin MessageBox(...);end;

zengguocai · 2009-07-18

MessageBox(...); 最发放到form2的SHOW里面。

hhjjhhjj · 2009-07-18

Form2的OnActivate事件里写：MessageBox(Handle,'这是Form2 ','提示!',49);比较接近你所谓的同时弹出。

delhpi · 2009-07-18

这样会多次弹出吧？

sujing1982 · 2009-07-20

var wm_showmsg = wm_user + 100;procedure TForm1.Button1Click(Sender: TObject); begin postmessage(Form2.handle, wm_showmsg,0,0 ); Form2.Showmodal;end;在form2的单元中 procedures wmshowmsg(var message: tmessage); message wm_showmsg ;procedure tform2.wmshowmsg(var message: tmessage); begin MessageBox(Handle,'这是Form2 ','提示!',49);end;

hhjjhhjj · 2009-07-23

加个timer，间隔设置小点，在ontimer事件里写就是了，不用搞得太复杂。timer1.Enabled := False;MessageBox(Handle,'这是Form2 ','提示!',49);

火焰领主打伞 · 2009-07-23

是的，我也是通过TIMER实现的，设置的是50

wql · 2009-07-23

procedure TForm1.Button1Click(Sender: TObject);begin Form2.Show; MessageBox({注意加的*****} Form2.Handle, '这是Form2 ','提示!',49);end;

张辉明 · 2009-07-23

大概看了一下，你们回答都不是楼主想要的。如果MessageBox(Handle,'这是Form2 ','提示!',49);这个语句放在　FORM2　单元中，这个问题还要问题吗？？用定时器确实是一种方法。但好像有点别扭吧？呵呵，最佳方案我认为回调函数（也可以认为是一个事件），FORM2显示后，立即调用回调函数，使用时这个回调函数指向FORM1中一个函数就OK了。这样就要达到在FORM1中写代码对FORM2操作。这个方案最典型的例子是：公开进度对话框窗体。

wql · 2009-07-24

MessageBox({注意加的*****} Form2.Handle, '这是Form2 ','提示!',49);就可以了!

如何弹出MessageBox对话框?(50)

bj_2005

Unregistered / Unconfirmed

sanguomi1

Unregistered / Unconfirmed

bj_2005

Unregistered / Unconfirmed

de410

Unregistered / Unconfirmed

delhpi

Unregistered / Unconfirmed

bbscom

Unregistered / Unconfirmed

zengguocai

Unregistered / Unconfirmed

hhjjhhjj

Unregistered / Unconfirmed

delhpi

Unregistered / Unconfirmed

sujing1982

Unregistered / Unconfirmed

hhjjhhjj

Unregistered / Unconfirmed

火焰领主打伞

Unregistered / Unconfirmed

wql

Unregistered / Unconfirmed

张辉明

Unregistered / Unconfirmed

wql

Unregistered / Unconfirmed

Similar threads