Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

panel [D6, Win95/98]

diks © (2003-01-16 14:36:00)
Люди помогите есть pnel1 на ней текст как сдеоать чтобы при наведении на panel1 текст менял цвет?

Roma (2003-01-16 21:12:00) [1]
Пункт 7 - это правильно. Но вот цвет текста на панели навсегда останется clBlue. Надо все таки ловить CM_MOUSEENTER, CM_MOUSELEAVE (см. Skier © (16.01.03 14:39))...

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

Smithson (2003-01-16 17:56:00) [2]
Подписываюсь под каждым словом. Под пунктом 7 - два раза!

gsu (2003-01-16 17:51:00) [3]
1. кликни на панели
2. открой инспектора
3. перейди на закладку Events
4. нажми 2 раза на onmousemove
5. вставь туда Panel1.Font.Color:=clBlue;
6. купи книгу по D
7. Учись учиться

diks (2003-01-16 17:47:00) [4]
Ни фига не работает ему вот это не нравится :procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);

gsu (2003-01-16 17:38:00) [5]
(-:|~

Smithson (2003-01-16 17:35:00) [6]
May be. После двух часов оптимизации SQL показалось смешным.

авыыав (2003-01-16 17:22:00) [7]
>> Smithson ©
Было время я и 2+2 не знал, а сколько ща знаю - песчинка

авыыав (2003-01-16 17:21:00) [8]
если твоя панель, то пиши так:
procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Panel1.Font.Color:=clBlue;
end;

Smithson (2003-01-16 17:20:00) [9]
Га-га-га

diks (2003-01-16 17:17:00) [10]
панели под код
Вот так
procedure TForm1.Panel1Click(Sender: TObject);
begin
winexec("c:\program files\ge_setup.exe", SW_show);
OnMouseMove + Font.Color:=clBlue;
end;

end.

gsu (2003-01-16 17:11:00) [11]
А куда ты их суешь и кому ?

diks (2003-01-16 16:59:00) [12]
Люди можно поподробнее!
А *OnMouseMove + Font.Color:=clBlue* ни фига не работает ему + не нравится

Skier (2003-01-16 14:39:00) [13]
>diks
Лови сообщения
CM_MOUSEENTER и
CM_MOUSELEAVE

gsu (2003-01-16 14:37:00) [14]
OnMouseMove + Font.Color:=clBlue

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »