![]() |
Внимание, важное сообщение: Дорогие Друзья!
В ноябре далекого 2001 года мы решили создать сайт и форум, которые смогут помочь как начинающим, так и продвинутым пользователям разобраться в операционных системах. В 2004-2006г наш проект был одним из самых крупных ИТ ресурсов в рунете, на пике нас посещало более 300 000 человек в день! Наша документация по службам Windows и автоматической установке помогла огромному количеству пользователей и сисадминов. Мы с уверенностью можем сказать, что внесли большой вклад в развитие ИТ сообщества рунета. Но... время меняются, приоритеты тоже. И, к сожалению, пришло время сказать До встречи! После долгих дискуссий было принято решение закрыть наш проект. 1 августа форум переводится в режим Только чтение, а в начале сентября мы переведем рубильник в положение Выключен Огромное спасибо за эти 24 года, это было незабываемое приключение. Сказать спасибо и поделиться своей историей можно в данной теме. С уважением, ваш призрачный админ, BigMac... |
Delphi - Delphi
|
Старожил Сообщения: 225 |
Каким образом можно перехватывать сообщения виндовс... а заодно, если у кого есть какие виды сообщений есть, поделитесь, если не жалко, желательно на русском языке...
|
|
------- Отправлено: 11:43, 23-11-2002 |
Новый участник Сообщения: 10
|
Профиль | Отправить PM | Цитировать >Roman Go
Пример: перехватываем собщение WM_NСHITTEST. Для этого пишем процедуру: interface uses *Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, *Dialogs, StdCtrls; type *TForm1 = class(TForm) * * private * *{ Private declarations } *public *procedure AllMove(var Msg:TMessage);message WM_NСHITTEST; { Public declarations } *end; var *Form1: TForm1; implementation {$R *.dfm} { TForm1 } procedure TForm1.AllMove(var Msg:TMessage); begin inherited; if Msg.Result=1 then Msg.Result:=2; end; end. Когда мы потащим форму мышью за произвольное место (если мышь не на границе формы, не на заголовке и не над кнопками системного меню, то без перехвата Msg.Result =1 ), заработает наша процедура и подменит Msg.Result на 2 (если мышь на заголовке, то без перехвата Msg.Result =2) - Windows будет обманута, решит, что мышь над заголовком и мы сможем перетащить форму за любое место. ![]() [s]Исправлено: Vla, 21:09 24-11-2002[/s] [s]Исправлено: Vla, 21:24 27-11-2002[/s] |
Отправлено: 14:02, 24-11-2002 | #2 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
Старожил Сообщения: 225
|
Профиль | Отправить PM | Цитировать Цитата:
|
|
------- Отправлено: 04:22, 25-11-2002 | #3 |
Модер Сообщения: 1716
|
Профиль | Сайт | Отправить PM | Цитировать Roman Go
Цитата:
Замечение к примеру: вроде в декларации AllMove надо var добавить или не надо? |
|
------- Отправлено: 13:53, 25-11-2002 | #4 |
Старожил Сообщения: 225
|
Профиль | Отправить PM | Цитировать Цитата:
![]() |
||
------- Отправлено: 03:58, 26-11-2002 | #5 |
Новый участник Сообщения: 10
|
Профиль | Отправить PM | Цитировать >vasketsov
Цитата:
Без var работать не будет. Описка. ![]() |
|
Отправлено: 20:30, 27-11-2002 | #6 |
![]() |
Участник сейчас на форуме |
![]() |
Участник вне форума |
![]() |
Автор темы |
![]() |
Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
Delphi - Delphi | UpperCase на Delphi 7 | Cognolio | Программирование и базы данных | 3 | 26-01-2006 15:42 | |
Delphi - Delphi | Surround | Программирование и базы данных | 11 | 10-01-2004 22:13 | |
Delphi - Delphi | Zx | Программирование и базы данных | 3 | 27-08-2003 10:19 | |
Delphi - Delphi | Roman Go | Программирование и базы данных | 9 | 25-12-2002 15:48 | |
Delphi - Delphi | Roman Go | Программирование и базы данных | 11 | 11-12-2002 14:43 |
|