[DUG] Problem with minimize button.

[Phil Scadden]

> 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;

Nope. Minimise called but the window doesn't minimize. Take about
frustrating.

----------------------------------------------------------
Phil Scadden, GNS Science Ltd
764 Cumberland St, Private Bag 1930, Dunedin, New Zealand
Ph +64 3 4799663, fax +64 3 477 5232