Block form minimize event [SOLVED]
lazarus / 31-LCL

----------------------------------------------------------------------
Phoenix · 2018-01-17 14:41

Hello,
I'd like to find a cross-platform (priority windows, linux) solution
to block the form minimize event and in its place run Hide ().

Thanks for every help.

----------------------------------------------------------------------
RayoGlauco · 2018-01-17 15:31

Code: [Select]procedure TForm1.FormWindowStateChange(Sender: TObject);
begin
  if self.WindowState = wsMinimized then self.hide;
end;
If you want to restore the form:

Code: [Select]self.windowstate:= wsNormal;
I think this works on any platform.

----------------------------------------------------------------------
Handoko · 2018-01-17 16:08

Quote from: RayoGlauco on January 17, 2018, 04:31:45 pmCode:
[Select]procedure TForm1.FormWindowStateChange(Sender: TObject);
begin
  if self.WindowState = wsMinimized then self.hide;
end;
Yes, it works on my test on Linux.

----------------------------------------------------------------------
Phoenix · 2018-01-17 17:39

This is a valid solution without blocking the form messages.
It also works on Windows10.

Thank you @RayoGlauco and @Handoko for test!!