请问怎样在ShowModal=mrOK获取是哪个按钮
时间：2011-11-17
来源：互联网
好几个按钮 都设置ModalResult:=mrOk;
然后怎样判断是哪个按钮的事件呢？
if vForm.ShowModal=mrOK then
begin
这边怎么判断是哪个按钮？
end;
然后怎样判断是哪个按钮的事件呢？
if vForm.ShowModal=mrOK then
begin
这边怎么判断是哪个按钮？
end;
作者: life923 发布时间: 2011-11-17
方法很多，可以在vForm中定义一个公共变量
var K:Integer;
procedure vForm.Button1Click(Sender: TObject);
begin
K:=1;
ModalResult:=mrOk;
end;
procedure vForm.Button2Click(Sender: TObject);
begin
K:=2;
ModalResult:=mrOk;
end;
…
if vForm.ShowModal=mrOK then
begin
if vForm.K=1 then
showmessage('是Button1')
else if vForm.K=2 then
showmessage('是Button2')
...
end;
var K:Integer;
procedure vForm.Button1Click(Sender: TObject);
begin
K:=1;
ModalResult:=mrOk;
end;
procedure vForm.Button2Click(Sender: TObject);
begin
K:=2;
ModalResult:=mrOk;
end;
…
if vForm.ShowModal=mrOK then
begin
if vForm.K=1 then
showmessage('是Button1')
else if vForm.K=2 then
showmessage('是Button2')
...
end;
作者: kaikai_kk 发布时间: 2011-11-17
你为什么把好几个都弄成mrOk?
作者: lhylhy 发布时间: 2011-11-17
引用 1 楼 kaikai_kk 的回复:
还有没有其他吗？
公共变量比较麻烦
作者: life923 发布时间: 2011-11-17
引用 2 楼 lhylhy 的回复:
你为什么把好几个都弄成mrOk?
你为什么把好几个都弄成mrOk?
ModalResult:=addr(Tbutton(Sender).caption);
这样写 可以吗？
作者: life923 发布时间: 2011-11-17
窗口里面每个按钮的ModelResult属性设个不同的值那么难吗？
作者: lhylhy 发布时间: 2011-11-17
你把所有按扭都设成mrOk,那总得有个标记区别吧
好吧，不想要变量，那再改进一点点
procedure vForm.Button1Click(Sender: TObject);
begin
tag:=1;
ModalResult:=mrOk;
end;
...
if vForm.ShowModal=mrOK then
begin
if vForm.tag=1 then
showmessage('是Button1')
else
...
end;
好吧，不想要变量，那再改进一点点
procedure vForm.Button1Click(Sender: TObject);
begin
tag:=1;
ModalResult:=mrOk;
end;
...
if vForm.ShowModal=mrOK then
begin
if vForm.tag=1 then
showmessage('是Button1')
else
...
end;
作者: kaikai_kk 发布时间: 2011-11-17
引用 6 楼 kaikai_kk 的回复:
tag是个好办法
作者: funxu 发布时间: 2011-11-17
相关阅读 更多
热门阅读
-
office 2019专业增强版最新2021版激活秘钥/序列号/激活码推荐 附激活工具
阅读：74
-
如何安装mysql8.0
阅读：31
-
Word快速设置标题样式步骤详解
阅读：28
-
20+道必知必会的Vue面试题（附答案解析）
阅读：37
-
HTML如何制作表单
阅读：22
-
百词斩可以改天数吗？当然可以，4个步骤轻松修改天数！
阅读：31
-
ET文件格式和XLS格式文件之间如何转化？
阅读：24
-
react和vue的区别及优缺点是什么
阅读：121
-
支付宝人脸识别如何关闭?
阅读：21
-
腾讯微云怎么修改照片或视频备份路径?
阅读：28
