[DUG] Problem with minimize button.

[Phil Scadden]

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