Менять цвет шрифта на кнопочке

← →
Scavenger © (2006-03-16 09:48) [0]

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

← →
Scavenger © (2006-03-17 17:34) [1]

← →
CAHEK (2006-03-17 21:28) [2]

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

← →
Scavenger © (2006-03-21 15:32) [3]

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

form1.Button1.Font.Color:=clLime;

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

← →
clickmaker © (2006-03-21 15:36) [4]

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

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

← →
Scavenger © (2006-03-21 16:08) [5]

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

← →
clickmaker © (2006-03-21 17:15) [6]

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

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

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

> Хотя конечно интересно было бы увидеть как меняет цвет 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;
Во втором рисуешь что тебе угодно, отслеживая положение мыши и т.д.

Менять цвет шрифта на кнопочке Найти похожие ветки