Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.21;
Скачать: [xml.tar.bz2];




Вниз

Про перехват системных сообщений... 


Kettle of delphi   (2002-03-05 15:45) [0]

Вот:

...
...
...

private
{ Private declarations }
procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND;

...
...
...

procedure TForm1.WMSysCommand;
begin
Edit1.Text := IntToStr(Msg.CmdType);
inherited;
end;


...
...
...


А нельзя ли как-нибудь сделать, чтобы получать не числа, а слова (например: SC_MINIMIZE, SC_MAXIMIZE, SC_CLOSE)?



Виктор Щербаков   (2002-03-05 15:50) [1]

procedure TForm1.WMSysCommand;
begin
case Msg.CmdType of
SC_MINIMIZE:
Edit1.Text := "SC_MINIMIZE";
SC_MAXIMIZE:
Edit1.Text := "SC_MAXIMIZE";
SC_CLOSE:
Edit1.Text := "SC_CLOSE";
end;
inherited;
end;



Kettle of delphi   (2002-03-05 16:08) [2]

:))) Я имел в виду, что программой как раз буду пользоваться, чтобы выяснить эти сымые SC_MINIMIZE, SC_MAXIMIZE, SC_CLOSE и другие слова-команды! На данный момент я могу, как видно из кода, узнать индекс сообщения (Integer). Как узнать КОМАНДНОЕ СЛОВО - вот, в чем вопрос :)

Но, может быть, виндовс только и посылает индексы, а сами слова - это лишь "для удобства" и связаны они только с конкретной средой разработки? Если так, тогда вопрос: истинно ли то, что индекс на, например, "закрытие" окна во всех версиях виндовс одинаков?



Виктор Щербаков   (2002-03-05 16:15) [3]


> Я имел в виду, что программой как раз буду пользоваться,
> чтобы выяснить эти сымые SC_MINIMIZE, SC_MAXIMIZE, SC_CLOSE
> и другие слова-команды

Это не слова комманды. Чтобы увидеть, что это такое - в редакторе кода сделай на них Ctrl + Click.

> Но, может быть, виндовс только и посылает индексы, а сами
> слова - это лишь "для удобства"

Так оно и есть.



Kettle of delphi   (2002-03-05 17:30) [4]

Ух ты, какой фокус с Ctrl + Click! :)))




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.21;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.035 c
4-67062           Yaro                  2001-12-26 21:59  2002.03.21  
Удаление из реестра Windows


1-66937           Reals                 2002-03-06 16:15  2002.03.21  
Как перейти на споледнюю строчку текстового файла и прочитать ее.


3-66762           Draculenok            2002-02-22 07:30  2002.03.21  
Подскажите где можно скачать Qreport Professional


1-66895           der                   2002-03-06 08:23  2002.03.21  
круговерть с DLL


1-66930           Yaro                  2002-03-06 14:54  2002.03.21  
Загрузка ActiveX компонентов