Скачать: CL | DM;

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

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

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

---

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

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

---

← →
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

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

---

← →
Scavenger ©   (2006-03-21 17:25) [7]

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

---

← →
clickmaker ©   (2006-03-21 18:22) [8]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.025 c