我在程序中动态添加5个Image控件,需要添加鼠标事件处理,并判断点击的是哪一个控件,请问怎样处理?
解决方案 »
- dbgrideh的多表更新问题
- 如何向指定的Word文件或模板中存在的表格中插入数据
- 工作中遇到一个问题,急!!!!!请教各位高手
- 关于注册自定义组件的问题
- [求助]前辈帮我解决一下 一个dll的问题
- TSQLQuery查询集中有DATETIME类型字段时不能用TDataSetProvider提取数据集?
- 大家好!adoquery中的语法错请帮我改一下,
- delphi的TAdoStoredProc控件,在配置好Connection和ProcedureName以后,只要点击parameters那么就会出现要实现的存储过程的所有要要填写
- 用TDBISAMTable控件做数据库程序,如何使用其中的SQL语句?
- 请问用Delphi如何编写Service程序,最好给些例子或资源,谢谢。
- 急请教一个问题:
- 请问如何读取一个字节中的各个比特?
...处理函数必须是 xxxx(Sender: TObject);形式的
通过Sender可以判断触发事件的是谁
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,extCtrls;type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
procedure ImageClick(Sender: TObject);
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.ImageClick(Sender: TObject);
begin
ShowMessage((Sender as Timage).Name);
end;procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
Image:array[0..3] of TImage;
begin
for i := low(Image) to high(Image) do
begin
Image[i]:=TImage.Create(self);
Image[i].Left:=60;
Image[i].Name:='Image'+inttostr(i);
Image[i].Left:=(20+Image[i].Width)*i;
Image[i].Canvas.FillRect(Image[i].Canvas.ClipRect);
Image[i].OnClick:=ImageClick;
Image[i].Parent:=self;
end;end;end.
______________http://hthunter.vicp.net/