* * *

Author Topic: [Solved] Linux : intercept on Maximize ?  (Read 293 times)

GillesH

  • New member
  • *
  • Posts: 17
[Solved] Linux : intercept on Maximize ?
« on: April 16, 2017, 10:28:01 am »
Hello,
This code works with Windows :
Code: Pascal  [Select]
  1. [...]
  2. uses
  3.   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs,
  4.    LMessages;
  5.  
  6. type
  7.  
  8.   { TForm1 }
  9.  
  10.   TForm1 = class(TForm)
  11.    private
  12.     { private declarations }
  13.      procedure WMSysCommand (var Message: TLMSysCommand); message LM_SYSCOMMAND;
  14.   public
  15.     { public declarations }
  16.  
  17.   end;
  18.  
  19. var
  20.   Form1: TForm1;
  21.  
  22. implementation
  23.  
  24. {$R *.lfm}
  25.  
  26. { TForm1 }
  27.  
  28. procedure TForm1.WMSysCommand(var Message: TLMSysCommand) ;
  29. begin
  30.   ShowMessage('OK');
  31. end;
  32. [...]

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

« Last Edit: April 16, 2017, 12:16:30 pm by GillesH »

GetMem

  • Hero Member
  • *****
  • Posts: 2038
Re: Linux : intercept on Maximize ?
« Reply #1 on: April 16, 2017, 11:01:32 am »
I think you need something custom made to work on every major platform(see attachment). Feel free to modify it according to your needs.

GillesH

  • New member
  • *
  • Posts: 17
[Solved] Linux : intercept on Maximize ?
« Reply #2 on: April 16, 2017, 12:15:55 pm »
Thank you very much.
Regards. Gilles

 

Recent

Get Lazarus at SourceForge.net. Fast, secure and Free Open Source software downloads Open Hub project report for Lazarus