B boy_zyz Unregistered / Unconfirmed GUEST, unregistred user! 2000-10-10 #2 procedure WMSysCommand(var Message: TMessage); message WM_SYSCOMMAND; procedure TForm1.WMSysCommand(var Message:TMessage); begin if Message.WParam = SC_ICON then //最小化 begin //处理在这里 end else inherited; end;
procedure WMSysCommand(var Message: TMessage); message WM_SYSCOMMAND; procedure TForm1.WMSysCommand(var Message:TMessage); begin if Message.WParam = SC_ICON then //最小化 begin //处理在这里 end else inherited; end;
