public
procedure PROC1(var MSG:TMsg); message WM_APP;
Сообщения.
Поставил сообщение в свой текстовик. Как сделать так что бы на сообщение при нажатие на кнопку происходило моё прерывание. Да вообще скинте плиз пример работы с сообщеними.
Цитата: Rine
Поставил сообщение в свой текстовик. Как сделать так что бы на сообщение при нажатие на кнопку происходило моё прерывание. Да вообще скинте плиз пример работы с сообщеними.
Какими сообщениями? случайно не сообщения Windows
Толҗко поңалуйста напишите понагляднее...
Цитата: Rine
Толҗко поңалуйста напишите понагляднее...
Код:
type
TMyClass = class( TForm )
. . .
private
. . .
procedure WMSYSCOMMAND(var Msg: TWMSYSCOMMAND); message WM_SYSCOMMAND;
. . .
end;
procedure TMyClass.WMSYSCOMMAND(var Msg: TWMSYSCOMMAND);
begin
if Msg.CmdType = SC_MINIMIZE then
begin
ShowMessage( 'Больше так не делай!' );
end
else inherited;
end;
TMyClass = class( TForm )
. . .
private
. . .
procedure WMSYSCOMMAND(var Msg: TWMSYSCOMMAND); message WM_SYSCOMMAND;
. . .
end;
procedure TMyClass.WMSYSCOMMAND(var Msg: TWMSYSCOMMAND);
begin
if Msg.CmdType = SC_MINIMIZE then
begin
ShowMessage( 'Больше так не делай!' );
end
else inherited;
end;