我在窗体上动态创建了一个IMAGE控件,并且加载了一幅图片,现在要在该控件的双击事件中完成某些功能,怎样写这幅图片的双击事件?

解决方案 »

  1.   

    写个事件,然后给
    Image的ondbclick就是 了
      

  2.   

    TForm1=Class(Form1)
       procedure MyDBClick;
    end;begin
      Image1:=TImage.creatr(nil);
      ……
      Image1.onDBLClick:=MyDBCLick;
      

  3.   

    不同意,我是来找茬的:
    TForm1=Class(Form1)
       procedure MyDBClick;
    end;begin
      Image1:=TImage.creatr(nil);/////create
      ……
      Image1.onDBLClick:=MyDBCLick;
      

  4.   

    unit Unit1;interfaceuses
      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.
      

  5.   

    HOHO~~,看錯了,原來是雙擊事件把 OnClick:=myclick;  改成 OnDblClick:=myclick;