я слышал нужно пользоваться wmMouseOver, wmMouseOut( или че-то в этом роде), но желательно поподробнее как.
| Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате |
| Форум программистов > Delphi: Общие вопросы > Мышь и компонеты |
| Автор: Dexter 1.7.2002, 16:16 |
| Скажите мне кто-нибудь как отследить уход крысы с компонента. я слышал нужно пользоваться wmMouseOver, wmMouseOut( или че-то в этом роде), но желательно поподробнее как. |
| Автор: AntonSaburov 2.7.2002, 16:47 |
| RTFM type TDBCalendar = class(TSampleCalendar); private procedure CMExit(var Message: TWMNoParams); message CM_EXIT; ... end; 2 Implement the CMExit method so it looks something like this: procedure TDBCalendar.CMExit(var Message: TWMNoParams); begin try FDataLink.UpdateRecord; { tell data link to update database } except on Exception do SetFocus; { if it failed, don't let focus leave } end; inherited; end; |
| Автор: AntonSaburov 2.7.2002, 16:49 |
Дополнение: CM_ENTER  |
| Автор: Dexter 3.7.2002, 20:28 |
| Че-то я ничего не понял. Можно пример чтобы при наведении мышки на кнопку была одна надпись а при уходе другая  |
| Автор: Song 14.7.2002, 19:56 |
| Сделайте наследника от кнопки и опишите для него события CM_ENTER, CM_EXIT |