如何在ANIMATE控件上加入鼠标的点击事件

Question

上边放一个透明的大小一样的label

Answer 1

不可以呀，因为你把label不可以放在animate上面的，你不label放在上面后animate在label的前面，不可以捕捉到label的事件。

Answer 2

你可以用捕获WINDOWS的消息来处理

Answer 3

V_lucky能具体点吗，我是菜鸟级的啦，帮帮我

Answer 4

procedure TForm1.FormCreate(Sender: TObject);
begin
  Label1.Top := 0;
  Label1.Left := 0;
  Label1.AutoSize := False;
  Label1.Caption := '';
  Label1.Width := Animate1.Width;
  Label1.Height := Animate1.Height;
  Label1.Parent := Animate1;
  Label1.Transparent := True;
  Animate1.Active := True;
end;procedure TForm1.Label1Click(Sender: TObject);
begin
  ShowMessage('这你也想得出，I服me！');
end;

Answer 5

给分就给zswang
不要给zswangII

Answer 6

//look问我要这样为什么
http://www.csdn.net/expert/Topic/388/388382.shtm

Answer 7

你要保证
设计期间Animate1.Active := False;

Answer 8

继承控件
我做了一个例子
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  AppEvnts, ComCtrls, ExtCtrls, StdCtrls;type
  TMyAnimate=class(TAnimate)
    private
      procedure WMLButtonDown(var Msg:TMessage);message WM_LBUTTONDOWN;
  end;
  TForm1 = class(TForm)
    ApplicationEvents1: TApplicationEvents;
    Panel1: TPanel;
    procedure ApplicationEvents1Message(var Msg: tagMSG;
      var Handled: Boolean);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.DFM}procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
begin
end;{ TMyAnimate }procedure TMyAnimate.WMLButtonDown(var Msg: TMessage);
begin
  //这里添加你想要做的事情
  ShowMessage('OK');
end;procedure TForm1.FormCreate(Sender: TObject);
var
  A:TMyAnimate;
begin
  A:=TMyAnimate.Create(Self);
  A.Parent:=Panel1;
end;end.

Answer 9

太棒了！！！！，给分给zswang了