Форум: "Основная";
Текущий архив: 2002.12.19;
Скачать: [xml.tar.bz2];
ВнизПоменять шрифт надписи Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.008 c