panel

← →
diks (2003-01-16 14:36) [0]

Люди помогите есть pnel1 на ней текст как сдеоать чтобы при наведении на panel1 текст менял цвет?

← →
gsu (2003-01-16 14:37) [1]

OnMouseMove + Font.Color:=clBlue

← →
Skier (2003-01-16 14:39) [2]

>diks
Лови сообщения
CM_MOUSEENTER и
CM_MOUSELEAVE

← →
diks (2003-01-16 16:59) [3]

Люди можно поподробнее!
А *OnMouseMove + Font.Color:=clBlue* ни фига не работает ему + не нравится

← →
gsu (2003-01-16 17:11) [4]

А куда ты их суешь и кому ?

← →
diks (2003-01-16 17:17) [5]

панели под код
Вот так
procedure TForm1.Panel1Click(Sender: TObject);
begin
winexec("c:\program files\ge_setup.exe", SW_show);
OnMouseMove + Font.Color:=clBlue;
end;

end.

← →
Smithson (2003-01-16 17:20) [6]

Га-га-га

← →
авыыав (2003-01-16 17:21) [7]

если твоя панель, то пиши так:
procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Panel1.Font.Color:=clBlue;
end;

← →
авыыав (2003-01-16 17:22) [8]

>> Smithson ©
Было время я и 2+2 не знал, а сколько ща знаю - песчинка

← →
Smithson (2003-01-16 17:35) [9]

May be. После двух часов оптимизации SQL показалось смешным.

← →
gsu (2003-01-16 17:38) [10]

(-:|~

← →
diks (2003-01-16 17:47) [11]

Ни фига не работает ему вот это не нравится :procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);

← →
gsu (2003-01-16 17:51) [12]

1. кликни на панели
2. открой инспектора
3. перейди на закладку Events
4. нажми 2 раза на onmousemove
5. вставь туда Panel1.Font.Color:=clBlue;
6. купи книгу по D
7. Учись учиться

← →
Smithson (2003-01-16 17:56) [13]

Подписываюсь под каждым словом. Под пунктом 7 - два раза!

← →
Roma (2003-01-16 21:12) [14]

Пункт 7 - это правильно. Но вот цвет текста на панели навсегда останется clBlue. Надо все таки ловить CM_MOUSEENTER, CM_MOUSELEAVE (см. Skier © (16.01.03 14:39))...

PS: Либо автор вопроса прикалывается, либо одно из двух...

panel Найти похожие ветки