Форум: "Основная";
Текущий архив: 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)?
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.03.21;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.005 c