Delphi [Msg on THintWindow] |
Комментировать | « Пред. запись — К дневнику — След. запись » | Страницы: [1] [Новые] |
Livemask, давай меряться письками- я тоже учился из учебников, а они были еще больше учебнее чем твои учебники!
TMsgHint.WMNCMOUSEMOVE я думаю это перекрывать
Livemask:Нет_я, а с хинтами вы баловались? Это, ведь, особый класс.
какая разница, любой класс можно перекрывать
Исходное сообщениеНет_я:
Livemask, давай меряться письками- я тоже учился из учебников, а они были еще больше учебнее чем твои учебники!
TMsgHint.WMNCMOUSEMOVE я думаю это перекрывать
TLС v.0.7.31c
Исходное сообщениеНет_я:
TMsgHint.WMNCMOUSEMOVE я думаю это перекрывать
Livemask, посмотри на сырцы класса. найди нужную процедурку и перекрой её.
если говорю бред - извини. под вечер мозг не работает и делфы под рукой нет.
TMsgHint.WMNCMOUSEMOVE
это событие при наведении на всплывающую подсказку "бла-бла"? например: label1.hint='блабла'
Livemask,
TMsgHint = class(THintWindow)
private
procedure WMNCMOUSEMOVE(var message: TMessage); Override; message WM_NCMOUSEMOVE;
end;
Procedure TMsgHint.WMNCMOUSEMOVE(var message: TMessage);
begin
Beep; //По идее, должно пикать когда мышь над хинтом. Ан нет..
end;
Livemask, мой девиз был таков:
нет в этом классе - ищи в предке
никогда не подводил))
Эхх... погрузился я в эти web-технологии и совсем забыл прекрасный Дельфи. Насыпал мне соль на рану. Теперь ставить буду...палюбому
code:
procedure THintWindow.WMNCHitTest(var Message: TWMNCHitTest);
begin
Message.Result := HTTRANSPARENT;
end;
Исходное сообщение Livemask
borisiq, а у меня нет низлежащего окна. У меня получается родитель - само приложение (TApplication).
Мне нужно перехватывать сообщения приложения?
Комментировать | « Пред. запись — К дневнику — След. запись » | Страницы: [1] [Новые] |