我在窗体上动态创建了一个IMAGE控件,并且加载了一幅图片,现在要在该控件的双击事件中完成某些功能,怎样写这幅图片的双击事件?
解决方案 »
- 这个多线程怎么不同步执行?
- 请问DBEXPRESS是否支持SQLSERVER2005?
- 主窗体关闭?
- 太久不用d了。要写点小东西,还真不会了,再回来请教各位高人...
- 谁能告诉我有这样的函数!
- onGetText事件在delphi6中有吗?我想用它解决问题可是adoquery和adotable都找不到这个事件,只在delphi7中有吗?
- 为什么if trim(combobox1.Text):='' then不能通过编译
- 關于激光打印控制的問題.請高手手進來!給高分(100),在線等!!!
- 很奇怪的delphi连接问题
- Terminate是请求结束一个线程,那么如何真正结束一个线程呢?
- 哪一位大侠可以帮我把下面的翻译成DELPHI,关于SNMP的
- 100分求ABC FOR delphi 7
Image的ondbclick就是 了
procedure MyDBClick;
end;begin
Image1:=TImage.creatr(nil);
……
Image1.onDBLClick:=MyDBCLick;
TForm1=Class(Form1)
procedure MyDBClick;
end;begin
Image1:=TImage.creatr(nil);/////create
……
Image1.onDBLClick:=MyDBCLick;
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls,jpeg;type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
procedure MyClick(sender:TObject);
{ Public declarations }
end;var
Form1: TForm1;
MyImage:TImage;
implementation{$R *.dfm}procedure Tform1.MyClick(Sender: Tobject);
begin
showmessage('ok');
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
myimage:=Timage.Create(nil);
with myimage do
begin
parent := self;
Picture.LoadFromFile('c:\c01.jpg');
Align:=alClient;
OnClick:=myclick;
end;
end;end.