Текущий архив: 2002.12.19;
Скачать: CL | DM;

Вниз

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

← →
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;

---

Страницы: 1 вся ветка

Текущий архив: 2002.12.19;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.014 c