我的想法是,通过一个函数或者过程判断该控件后,再处理该控件相应的事件!能否实现?有例子最好
解决方案 »
- 变量命名中的符号
- DELPHI6.0程序里通过一个循环从SQL SERVER2000取数,然后向ORALCE写数据,循环到第406条记录时,提示错误:ORA-12571:TNS:
- [高手进]问个FileExists的问题
- 会C++的进来看看!谢谢
- 请问高手:如何用数据绑定控件正确显示数据库中的时间字段
- 给在线的兄弟姐妹们拜个早年;^_^;顺便找下哪位兄弟有【精忠报国】的歌词;
- 一个小问题。我自己都觉得纳闷! ^_^
- 如何将access数据表倒出成txt的格式,然后再恢复?
- 如何判断 ComboBox 是在GroupBox1 中还是在 GroupBox2 中
- 我响应,我已经将我得帖子结了,至于转不转到灌水乐园我有所保留。
- 如何根据程序文件名获取该程序的句柄(如果当前正在系统中运行)?WINXP
- 有什么方法从 HKEY 句柄中获该句柄的相关信息??
begin
if ACon is TButton then
begin
(ACon as TButton).OnClick(nil);
end;
end;
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
CheckBox1: TCheckBox;
procedure Button1Click(Sender: TObject);
procedure CheckBox1Click(Sender: TObject);
procedure Edit1Click(Sender: TObject);
private
procedure CheckControl(AObject: TObject);
public
{ 公共成员(变量、函数)声明 }
end;var
Form1: TForm1;implementation{$R *.DFM}procedure TForm1.CheckControl(AObject: TObject);
begin
if AObject is TButton then
ShowMessage('这是一个Button')
else if AObject is TEdit then
ShowMessage('这是一个Edit')
else if AObject is TCheckBox then
ShowMessage('这是一个CheckBox');
end;procedure TForm1.Button1Click(Sender: TObject);
begin
CheckControl(Sender);
end;procedure TForm1.CheckBox1Click(Sender: TObject);
begin
CheckControl(Sender);
end;procedure TForm1.Edit1Click(Sender: TObject);
begin
CheckControl(Sender);
end;end.