Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 04.02.2011, 00:12   #1
Alter
Старожил
 
Аватар для Alter
 
Регистрация: 06.08.2007
Сообщений: 2,183
По умолчанию курсор над компонентом combobox

Не создавая нового потомка от tcombobox возможно ли определить, что курсор мыши над компонентом?
Alter вне форума Ответить с цитированием
Старый 04.02.2011, 00:26   #2
Пепел Феникса
Старожил
 
Аватар для Пепел Феникса
 
Регистрация: 28.01.2009
Сообщений: 21,000
По умолчанию

над определенным компонентом или вообще над компонентом?
Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
Программа делает то что написал программист, а не то что он хотел.
Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите.
Пепел Феникса вне форума Ответить с цитированием
Старый 04.02.2011, 03:34   #3
asmodey1
Подтвердите свой е-майл
 
Регистрация: 19.12.2010
Сообщений: 808
По умолчанию

Вполне возможно.
Вот, набросал вам примерчик :
Код:
  public
    { Public declarations }
    procedure WndProc(var Message: TMessage); override;
...
procedure TForm1.WndProc(var Message: TMessage);
begin
inherited;
  case  Message.Msg of
  CM_MOUSEENTER:
  begin
     if TControl(Message.LParam) is TComboBox then
      Label1.Caption:='ComboBox';
  end;
  CM_MOUSELEAVE:
  begin
     if TControl(Message.LParam) is TComboBox then
       Label1.Caption:='Not ComboBox';
  end;
  end;
end;
Можно добавить проверку на имя конкретного ComboBox.

Последний раз редактировалось asmodey1; 04.02.2011 в 03:37.
asmodey1 вне форума Ответить с цитированием
Старый 04.02.2011, 11:11   #4
Alter
Старожил
 
Аватар для Alter
 
Регистрация: 06.08.2007
Сообщений: 2,183
По умолчанию

Цитата:
Сообщение от Пепел Феникса Посмотреть сообщение
над определенным компонентом или вообще над компонентом?
Над определенным. Пример от asmodey1 подходит как раз.

Появилась проблема, если компонент лежит на контейнере(на panel например), то не реагирует. Код работает, если компонент лежит прямо на форме.

new
asmodey1, проверку на имя давно уже сделал. Но повторю. Положить на форму компонент Panel или GroupBox на них положить компонент ComboBox. При этом код не реагирует на курсор над контролом. См. Demo CMM.rar

Off.: Кто нибудь знает когда JEDI вылечит компоненты(balloonhint и jvtrayicon), потому как на Win 7 глючат они. сейчас стоит v3.40. Ответ можно в ЛС
Вложения
Тип файла: rar Demo CMM.rar (5.2 Кб, 12 просмотров)

Последний раз редактировалось Alter; 04.02.2011 в 21:32.
Alter вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Курсор мыши над формой 8adim Общие вопросы Delphi 8 07.02.2011 09:43
Мышь над компонентом Johnson Общие вопросы Delphi 11 01.10.2010 11:36
курсор с компонентом ASЯ Помощь студентам 11 16.05.2010 00:02
listbox над каким элементов находится курсор Gumer Компоненты Delphi 3 13.04.2010 19:08
Курсор над DBGrid. Какая колонка? Nowichok Компоненты Delphi 3 05.02.2007 16:51