Hello,
This code works with Windows :
[...]
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs,
LMessages;
type
{ TForm1 }
TForm1 = class(TForm)
private
{ private declarations }
procedure WMSysCommand (var Message: TLMSysCommand); message LM_SYSCOMMAND;
public
{ public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.lfm}
{ TForm1 }
procedure TForm1.WMSysCommand(var Message: TLMSysCommand) ;
begin
ShowMessage('OK');
end;
[...]
With Linux, no compile error reported but no display of message 'OK'.
An error in my code, a 'limit' of gtk2 or ... ?
Thanks. Regards. Gilles