我想自定义一个类似于MessageBox()的对话框怎么做呢？(20分)

程

程序小鱼

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-09

• #1

MessageBox()只能选YES，NO，OK，CANCEL。。。
我想让按钮变成“单人游戏”“双人游戏”，怎么做呢？
而且是要有返回值的那种，返回1，或2一个INT数就行了。要求是带返回值，
不用全局变量解决。比如这样value:=MyBox(...);请教!!!

 

A

AIHUA

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-09

• #2

自己见一个窗体
然后按照你的要求在上面设计
最后
你的窗体.show;

 

W

wlmmlw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-09

• #3

TMyForm = class
end;
var
MyForm: TMyForm;

function MyForm(): Boolean;

implementation

function MyForm(): Boolean;
begin
myform := TMyform.create(nil);
with myform do begin
showmodal;
end;
freeandnil(myform);
end;

 

程

程序小鱼

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-09

• #4

谢谢各位，不过，我更想知道的是，怎么返回值!!!
比如我新建的窗体是MYFORM!
我创建它后。
我还想这样
a:integer;
a:=myform(...);
怎么实现呢

 

A

AIHUA

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-09

• #5

o~

设置创体为模式显示
form1.ShowModal;
设置你的窗体form1的ModalResult属性值
form1.ShowModal()
if (form1.ModalResult==mrOk)
....

 

A

AIHUA

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-09

• #6

搞错了~~
是设置form1上button的属性ModalResult。（是个列表框），代表如果按了这个按钮的话
返回的值

 

程

程序小鱼

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-09

• #7

谢谢AIHUA，你能说得再细点吗。比如说，怎么返回一个值啊？比如我想有2个按钮都可以返回值
一个是返回数1，一个是返回2。怎么做呢。先把2个按钮设成ModalResult？我不太懂。刚刚学，
谢谢你!
你的意思是说把form1上button1的属性ModalResult设为1，form1上button2的属性ModalResult设为2
然后 在主程序中加入
form1.ShowModal;
设置你的窗体form1的ModalResult属性值
form1.ShowModal()
if (form1.ModalResult==1)
if (form1.ModalResult==2)
然后开始处理吗？

 

A

AIHUA

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-09

• #8

对~ 理解的很多
不过 ModalResult属性提供了很多选项
你实际操作一下就明白了

 

程

程序小鱼

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-09

• #9

好的我去试试!谢谢你啊。你是程序员吗。可以认识一下吗

 

A

AIHUA

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-10

• #10

qq=9432390
msn=1lou@163.com
[]