请教一个关于鼠标事件的问题？

Question

用bevel
procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
   panel1.BevelOuter:=bvRaised;
end;procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  panel1.BevelOuter :=bvNone;
end;

Answer 1

procedure TForm1.Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  //做鼠标效果的代码。如:
  (sender as TLabel).Canvas.FillRect((sender as TLabel).ClientRect);
end;procedure TForm1.FormCreate(Sender: TObject);
begin
  label2.OnMouseMove :=  Label1MouseMove;
  label3.OnMouseMove :=  Label1MouseMove;
  //将所有label的 OnMouseMove 事件设置为 Label1MouseMove
end;

Answer 2

可以对label1mousemove事件进行处理
非常的简单的