Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Менять цвет шрифта на кнопочке [D7, XP]


Scavenger ©   (2006-03-16 09:48:00) 

Уважаемые мастера. А как при наведении курсора мыши на кнопку сделать так чтобы цвет шрифта на кнопочке менялся.
И еще вопрос. У меня на форме расположен компонент ShellTreeView1 со вкладки Samples и поле Memo1. Как сделать так что бы можно было перетаскивании папку с компонента ShellTreeView1 на Memo1 так чтобы в поле Memo1 отобразился путь данной папки.


clickmaker   (2006-03-21 18:22:00) [1]


> Хотя конечно интересно было бы увидеть как меняет цвет Button

если кратко, то:
1. Создаешь наследника TButton
2. В CreateParams пишешь
inherited CreateParams(Params);  
with Params do Style := Style or BS_OWNERDRAW;
3. Пишешь обработчики
procedure CNMeasureItem(var Msg: TWMMeasureItem); message CN_MEASUREITEM;  
   procedure CNDrawItem(var Msg: TWMDrawItem); message CN_DRAWITEM;
Во втором рисуешь что тебе угодно, отслеживая положение мыши и т.д.


Scavenger   (2006-03-21 17:25:00) [2]

Спасибо буду использовать BitBtn. Хотя конечно интересно было бы увидеть как меняет цвет Button


clickmaker   (2006-03-21 17:15:00) [3]

http://www.torry.net/pages.php?id=77

там много кнопок с исходниками, натолкнет на мысли


Scavenger   (2006-03-21 16:08:00) [4]

Что то я не могу понять как это использовать. Полез в справку, а там не одного примерчика нет. Подскажи плиз где я это должен прописывать. И как это рабоает?


clickmaker   (2006-03-21 15:36:00) [5]


> Scavenger ©   (21.03.06 15:32) [3]

на кнопке просто так цвет шрифта не изменишь.
попробуй отлавливать WM_CTLCOLORBTN от этой кнопки и ставить SetTextColor(wParam, )


Scavenger   (2006-03-21 15:32:00) [6]

Что то не выходит. Я в прцедуре пишу не получается

form1.Button1.Font.Color:=clLime;

Подскажи что там еще нужно плиз.


CAHEK   (2006-03-17 21:28:00) [7]

Попробуй использовать events/onmousemove


Scavenger   (2006-03-17 17:34:00) [8]

Уважаемые мастера. А как при наведении курсора мыши на кнопку сделать так чтобы цвет шрифта на кнопочке менялся.
И еще вопрос. У меня на форме расположен компонент ShellTreeView1 со вкладки Samples и поле Memo1. Как сделать так что бы можно было перетаскивании папку с компонента ShellTreeView1 на Memo1 так чтобы в поле Memo1 отобразился путь данной папки.


Наверх

Титульная страница Поиск, карта сайта Написать письмо