命令按扭字体颜色的改变???

Question

在窗体放一个SpeedButton1控件，当鼠标移动在它上如何改变它的颜色???

Answer 1

procedure TForm1.SpeedButton1MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
  SpeedButton1.Font.Color := clRed;
end;在鼠标移动到其他控件时在把它的颜色变过来。

Answer 2

procedure TForm1.SpeedButton1MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
speedbutton1.Font.Color :=clBackground;
end;