Delphi问题？//问题在这？我想Tai2MouseDown时，叫它执行下面Tai2MouseLeave过程？这//名该怎么写？

procedure TForm1.Tai2MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
//问题在这？我想Tai2MouseDown时，叫它执行下面Tai2MouseLeave过程？这//名该怎么写？
end;

procedure TForm1.Tai2MouseEnter(Sender: TObject);
begin
Tai2.Color:=EnterColor;
Tai.Color:=TaiColor;
end;

procedure TForm1.Tai2MouseLeave(Sender: TObject);
begin
Tai2.Color:=LeaveColor;
Tai.Color:=LeaveColor;
end;
//问题在这？我想Tai2MouseDown时，叫它执行下面Tai2MouseLeave过程？这//名该怎么写？
直接在过程里调用Tai2MouseLeave吧 这样不行！

我正是因为 把MouseLeave的代码弄到MouseDown里咯 太麻烦了！ 因为有很多要执行的代码都跟这段是一样的！
很简单，比如说我想 当鼠标按下Button1或Button2或Button3时，就执行在Form1上的MouseMove事件啊！就这样而已，但我不知道怎么写！

DELPHI问题 Delphi问题 delphi 问题 DELPHI问题? Delphi的问题 delphi对话框问题 DELPHI编写DLL问题 DELPHI写注册表问题 Delphi初学者问题 Delphi浮点数问题