[DUG] Problem with minimize button.

[Jeremy North]

What about this:

  procedure TPlotfrm.WMSysCommand(var Message: TWMSysCommand);
  begin
    if (Message.CmdType and $FFF0 = SC_minimize) then
    begin
      statusbar1.panels[0].text := 'Minimise called';
      Application.minimize;
    end;
    inherited;
  end;


On 6/27/07, Phil Scadden <p.scadden at gns.cri.nz> wrote:
> Okay, put this code into the program
>
>  procedure TPlotfrm.WMSysCommand(var Message: TWMSysCommand);
>  begin
>  if (Message.CmdType and $FFF0 = SC_minimize) then
>  begin
>     statusbar1.panels[0].text := 'Minimise called';
>     Application.minimize;
>   end else
>     inherited;
>  end;
>
> The status bar does change to Minimise called BUT the application still
> does not minimize on that PC. Very strange.
> ----------------------------------------------------------
> Phil Scadden, GNS Science Ltd
> 764 Cumberland St, Private Bag 1930, Dunedin, New Zealand
> Ph +64 3 4799663, fax +64 3 477 5232
>
> _______________________________________________
> NZ Borland Developers Group - Delphi mailing list
> Post: delphi at delphi.org.nz
> Admin: http://delphi.org.nz/mailman/listinfo/delphi
> Unsubscribe: send an email to delphi-request at delphi.org.nz with Subject: unsubscribe
>