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 <[EMAIL PROTECTED]> 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: [email protected]
Admin: http://delphi.org.nz/mailman/listinfo/delphi
Unsubscribe: send an email to [EMAIL PROTECTED] with Subject: unsubscribe
_______________________________________________
NZ Borland Developers Group - Delphi mailing list
Post: [email protected]
Admin: http://delphi.org.nz/mailman/listinfo/delphi
Unsubscribe: send an email to [EMAIL PROTECTED] with Subject: unsubscribe
