菜鸟问题 按钮重复使用(30分)

  • 主题发起人 主题发起人 cgdlin
  • 开始时间 开始时间
C

cgdlin

Unregistered / Unconfirmed
GUEST, unregistred user!
程序中多个窗口使用同样的按钮,且按钮的代码基本相同,我不想使用复制粘贴的方法
在多个地方使用,

请 大虾 指点
 
把click事件里的内容写成过程不就行了,建立个公用unit文件,你写的过程
就放在这里面,只要在click事件里调用次过程就ok.
 
写一个基类,有按钮要使用的相同的代码,但要放在一个过程或函数中,声明为窗体的
public或protected中,其它用到的窗体的按钮调用这个方法就行了

如果确定每个子窗体都有这个按钮,把按钮放在基类中更好
 
在按钮的事件框中,点下拉按钮,可以看到其它按钮的相应事件,你选择一个代码类似的
事件就可以了。
 
procedure TForm1.Button2Click(Sender: TObject);
begin
showmessage('sdfsfs');
end;

procedure TForm2.Button1Click(Sender: TObject);
begin
form1.Button2Click(self);
end;
ok?
 
扳手
谢谢你的答复!!
具体情况是这样的:窗口有三个按钮,添加、修改、删除。点击添加后,修改按钮
要暂时无效,添加结束后,修改按钮才有效。这时如果写一个公用过程是不行的。
 
扳手的方法比较好!很清楚地建立一个公用函数模块,还可以定义窗体的释放函数。
 
能不能写一个 把三个按钮包含在一起的基类,在这个基类中控制 按钮的 enable 。
 
那就从一个窗体继承吧,这样应该比较省力气!
 

============================================================================

具体情况是这样的:窗口有三个按钮,添加、修改、删除。点击添加后,修改按钮
要暂时无效,添加结束后,修改按钮才有效。这时如果写一个公用过程是不行的。
============================================================================
 
============================================================================

具体情况是这样的:窗口有三个按钮,添加、修改、删除。点击添加后,修改按钮
要暂时无效,添加结束后,修改按钮才有效。这时如果写一个公用过程是不行的。

能不能写一个 把三个按钮包含在一起的基类,在这个基类中控制 按钮的 enable
============================================================================
 
新建一个窗体,添加三个按钮,写好代码(相互间的屏蔽),然后后面如有用到
这些按钮的窗体,全部从这个窗体继承!
 
sender重用啊!
 
写一个专用unit,里面有你要共用的函数和过程,如果你在某个单元里要调用这里的函数或过程,只要uses一下就行了!
 
多人接受答案了。
 
后退
顶部