Как Сделать????? -> Форум на Исходниках.Ру

	Наши проекты: Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту

Здравствуйте, Гость ! [3.133.82.244]

ПРАВИЛА РАЗДЕЛА · FAQ раздела Delphi · Книги по Delphi

Пожалуйста, выделяйте текст программы тегом [сode=pas] ... [/сode]. Для этого используйте кнопку [code=pas] в форме ответа или комбобокс, если нужно вставить код на языке, отличном от Дельфи/Паскаля.

Следующие вопросы задаются очень часто, подробно разобраны в FAQ и, поэтому, будут безжалостно удаляться:
1. Преобразовать переменную типа String в тип PChar (PAnsiChar)
2. Как "свернуть" программу в трей.
3. Как "скрыться" от Ctrl + Alt + Del (заблокировать их и т.п.)
4. Как прочитать список файлов, поддиректорий в директории?
5. Как запустить программу/файл?
... (продолжение следует) ...

Вопросы, подробно описанные во встроенной справочной системе Delphi, не несут полезной тематической нагрузки, поэтому будут удаляться.
Запрещается создавать темы с просьбой выполнить какую-то работу за автора темы. Форум является средством общения и общего поиска решения. Вашу работу за Вас никто выполнять не будет.

Внимание
Попытки открытия обсуждений реализации вредоносного ПО, включая различные интерпретации спам-ботов, наказывается предупреждением на 30 дней.
Повторная попытка - 60 дней. Последующие попытки бан.
Мат в разделе - бан на три месяца...

Модераторы: jack128, D[u]fa, Shaggy, Rouse_

Новое голосование

Как Сделать?????

Homker	Сообщ. #1 , 27.02.03, 08:50
Unregistered	Нужно: чтобы при получении фокуса шрифт кнопки загорался другим цветом я пробывал через if button1.focuced(помоему так) then Button1.font.collor:=clGreen else .... не получается почемуто ?"??

OlegF

Сообщ. #2 , 27.02.03, 09:02

Junior

Профиль · PM

Рейтинг (т): 0

Можно попробовать сделать свою кнопку на основе допустим TButton в которой обрабатывать сообщения
cm_mouseenter - мышка над кнопкой
cm_mouseleave - мышка покинула кнопку

Соответственно на обработчики этих сообщений вешаешь, то что тебе надо. Допустим на cm_mouseenter делаешь шрифт на кнопке жирным, а на cm_mouseleave - меняешь шрифт на обычный. Такой пример по-моему тут где-то на исходниках есть, но я не помню где.

SVK	Сообщ. #3 , 27.02.03, 17:20
Unregistered	а ты ей (кнопке:) после этого какойньть рефрешь зделай

z1288	Сообщ. #4 , 01.03.03, 15:06
Unregistered	Насколько я помню ТButton вообще не умеет менят цвет шрифта без помощи хуков или чего-нибудь еще...

Song	Сообщ. #5 , 01.03.03, 15:12
Unregistered	Умеет.. Это она не умеет цвет менять.

LAMA3OID

Сообщ. #6 , 01.03.03, 15:36

Unregistered

Button не меняет цвет шрифта. Зато его меняет BitBtn.
Создаешь компонент на основе BitBtn:

private

procedure MENTER(var msg:TMessage);message CM_MOUSEENTER;
procedure MLEAVE(var msg:TMessage);message CM_MOUSELEAVE;

..............................

implementation

procedure MENTER(var msg:TMessage);
begin
//Когда наводят мышой
font.color:=clRed;
end;

procedure MLEAVE(var msg:TMessage);
begin
//Когда убирают мышу
font.color:=clBlue;
end;

z1288	Сообщ. #7 , 01.03.03, 15:55
Unregistered	Вот об этом я и говорил!!!

Song	Сообщ. #8 , 01.03.03, 16:44
Unregistered	У меня меняет (Д6).

z1288	Сообщ. #9 , 01.03.03, 17:05
Unregistered	Видимо она (Дельфи) у тебя какя-то особенная :) з.ы. Без обид

Song	Сообщ. #10 , 01.03.03, 20:48
Unregistered	не, ну в натуре напиши событие onMouseMove кнопки TButton(Sender).Font.Style:=[fsBold]; У тебя не работает ?

z1288	Сообщ. #11 , 02.03.03, 07:41
Unregistered	Стиль шрифта то она меняет! А вот цвет (шрифта) нет!

Song

Сообщ. #12 , 02.03.03, 10:23

Unregistered

Торможу..
я всё это время про шрифт думал в смысле стиля, а не цвета.
Что касается цвета посмотри моё сообщение #5, я там так и говорил...
Но тем не менее цвет поменять можно, для этого надо писать наследника от TButton. Но оно того не стоит..

Homker

Сообщ. #13 , 10.03.03, 17:20

Unregistered

Цитата Song, 02.03.03, 13:23:22

Фишка в том что мышь при работе использоваться не будет!!!!

BananaFT	Сообщ. #14 , 10.03.03, 17:44
Unregistered	Х-с-с-с-с ))))))))))))) Какие дебаты про MouseMove! Из серии "Люблю приколы с обломами"!

Grisha	Сообщ. #15 , 11.03.03, 19:44
Full Member Профиль · PM Рейтинг (т): 4	У TButton есть события OnEnter OnExit - получение и потеря фокуса. Там шрифт и устанавливай

1 пользователей читают эту тему (1 гостей и 0 скрытых пользователей)

0 пользователей:

[ Script execution time: 0,0305 ] [ 15 queries used ] [ Generated: 17.05.24, 05:01 GMT ]