No interception of the LMSysCommand
Original Reporter info from Mantis: ChP
-
Reporter name: Pierre CHAUVEAU
Original Reporter info from Mantis: ChP
- Reporter name: Pierre CHAUVEAU
Description:
With Lazarus 0.9.30 and Ubuntu 11.04, the following code :
...
uses
... LMessages, ... {add this unit}
...
private
{ Private declarations }
procedure LMSysCommand (var Msg: TLMSysCommand) ; message LM_SYSCOMMAND; public
...
procedure TForm1.LMSysCommand(var Msg: TLMSysCommand);
begin
case Msg.CmdType of
SC_RESTORE: ShowMessage('The windows is to be restored...');
SC_MINIMIZE: ShowMessage('The windows is to be minimized...');
SC_MAXIMIZE: ShowMessage('The windows is to be maximized...');
end;
DefaultHandler(Msg) ;
end;
compiles but does not work at run time.
I saw that this problem was solved in the issue : 0013442 and fixed in the 0.9.29 version.
So why it does not work in the 0.9.30 version ?
Additional information:
This code works with WIndows XP replacing "L" by "W" in the names of variables and procedure.
Mantis conversion info:
- Mantis ID: 20272
- Version: 0.9.30