[Harley]

Hello,

i have add a procedure

CODE

procedure WMSysCommand(var Message: TWMSysCommand); message WM_SYSCOMMAND;

to handle the messages from the Systemmenue (click on the application icon), in this case the minimize command.

CODE

procedure TFormMain.WMSysCommand(var Message: TWMSysCommand);
begin
  if ((Message.CmdType and $FFF0) = SC_MINIMIZE) then
    begin
      ShowWindow(FormMain.Handle, SW_HIDE);
      //or do somethink other
    end
  else
    inherited;
end;

If my form is unskinned it works fine but when i switched to skinned mode it doesn't work. At version 6.48 it works in skinned mode and unskinned mode.

Is there any other way to use the WMSysCommand procedure in skinned mode???

Thanks, Harley.

[Support]

Hello
The problem will be solved in the nearest release I think. But not for system menu from the taskbar. This code doesn't work for standard mode too, if minimized from taskbar.

[Harley]

You are right. From the taskbar it dosn't work. I must use this command for the systemmenu of the main form and this will work in release 6.48.
Thanks for fixing in next release.

[Author]

Posts