procedure WMSysCommand(var Message: TMessage); message WM_SYSCOMMAND;
procedure TForm2.WMSysCommand(var Message: TMessage);
begin
if (Message.WParam = SC_ICON)
then Application.Minimize
else inherited;
end;
procedure WMSysCommand(var Message: TMessage); message WM_SYSCOMMAND;
procedure TForm2.WMSysCommand(var Message: TMessage);
begin
if (Message.WParam = SC_ICON)
then Application.Minimize
else inherited;
end;