Поменять шрифт надписи

← →
Berg (2002-12-09 16:17) [0]

Как изменить цвет шрифта надписи на время нахождения мыши над ним
Я делаю так, цвет меняется, но после ухода не восстанавливается, остается изменненым, что надо исправить?

procedure TForm1.RadioButton4MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin RadioButton4.Font.Color:= clBlue; end;

← →
Skier © (2002-12-09 16:50) [1]

>Berg
Примерно так :

TForm1 = class(TForm)
RadioButton1: TRadioButton;
private
FOldColor : TColor;
FOldWndProc : TWndMethod;
procedure NewWndProc(var Message: TMessage);
public
end; //TForm1

procedure TForm1.NewWndProc(var Message: TMessage);
begin
with Message do begin
case Msg of
CM_MOUSEENTER : begin
FOldColor := Font.Color;
RadioButton1.Font.Color:= clBlue;
FOldWndProc(Message);
end; //CM_MOUSEENTER
CM_MOUSELEAVE : begin
RadioButton1.Font.Color:= FOldColor;
FOldWndProc(Message);
end //CM_MOUSEENTER
else FOldWndProc(Message);
end; //case
end; //with
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
FOldWndProc := RadioButton1.WindowProc;
RadioButton1.WindowProc := NewWndProc;
end;

Поменять шрифт надписи Найти похожие ветки