![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы
![]() |
Поиск в этой теме
![]() |
![]() |
#1 |
Форумчанин
Регистрация: 05.08.2007
Сообщений: 225
|
![]()
Подскажите пожалуйста!
на форме только одна Panel, как можно сделать, чтобы при наведении мыша на эту панель ее цвет изменялся, а при отведении мыша цвет возвращался на место? С наведением вроде ясно: Код:
|
![]() |
![]() |
![]() |
#2 |
Форумчанин
Регистрация: 24.06.2007
Сообщений: 351
|
![]()
Проще чем ты думаешь! Все почти тоже самое только
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin Panel1.Color:=clBtnFace; end; Я не маюсь бездельем, я от него тащусь!
|
![]() |
![]() |
![]() |
#3 |
Форумчанин
Регистрация: 05.08.2007
Сообщений: 225
|
![]() |
![]() |
![]() |
![]() |
#4 | |
Форумчанин
Регистрация: 24.06.2007
Сообщений: 351
|
![]() Цитата:
Я не маюсь бездельем, я от него тащусь!
|
|
![]() |
![]() |
![]() |
#5 |
Телепат с дипломом
Старожил
Регистрация: 10.06.2007
Сообщений: 4,929
|
![]()
Kashp учти только, это выполняется при каждом и на протяжении всего движения мыши, если нужно будет что-то сложнее изменения цвета, желательно дополнить алгоритм так чтобы код выполнялся один раз при входе мыши и один раз при выходе
The future is not a tablet with a 9" screen no more than the future was a 9" black & white screen in a box. It’s the paradigm that survives. (Kroc Camen)
Проверь себя! Онлайн тестирование | Мой блог |
![]() |
![]() |
![]() |
#6 | |
Форумчанин
Регистрация: 05.08.2007
Сообщений: 225
|
![]() Цитата:
![]() ![]() |
|
![]() |
![]() |
![]() |
#7 |
Пользователь
Регистрация: 07.09.2007
Сообщений: 20
|
![]()
Ставте себе Borland Developer Studio.
Там к большинству компонентов есть события OnMousEnter и OnMouseLive (если я не напутал названия). Вот их и юзай... Они вызываються один раз... Тока XPManifest не кидай на форму. |
![]() |
![]() |
![]() |
#8 | |
Телепат с дипломом
Старожил
Регистрация: 10.06.2007
Сообщений: 4,929
|
![]() Цитата:
Код:
The future is not a tablet with a 9" screen no more than the future was a 9" black & white screen in a box. It’s the paradigm that survives. (Kroc Camen)
Проверь себя! Онлайн тестирование | Мой блог |
|
![]() |
![]() |
![]() |
#9 |
Форумчанин
Регистрация: 05.08.2007
Сообщений: 225
|
![]()
Всем спасибо за помощь!
|
![]() |
![]() |
![]() |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
XPMan и Panel | WOLFak | Компоненты Delphi | 14 | 25.05.2008 10:33 |
Задача/Pascal/графический режим/пошаговое изменение цвета | Чайникус | Помощь студентам | 1 | 02.05.2008 18:07 |
Изменение вида Image при наведении указателя | Сергей А | Помощь студентам | 3 | 05.08.2007 15:26 |
Изменение цвета | Artem | Общие вопросы Delphi | 5 | 12.07.2007 09:07 |