B BlueGhost Unregistered / Unconfirmed GUEST, unregistred user! 2003-04-17 #1 比如说我只是想当按下最小化的时候，窗口并不最小化，而是Visible:=false呢？
Y yanghaijun Unregistered / Unconfirmed GUEST, unregistred user! 2003-04-17 #2 如何你只是想禁止最小化按钮,只需要: procedure TForm1.FormCreate(Sender: TObject); begin BorderIcons:=BorderIcons-[biMinimize]; end; 当然你在设计时设置也行...
如何你只是想禁止最小化按钮,只需要: procedure TForm1.FormCreate(Sender: TObject); begin BorderIcons:=BorderIcons-[biMinimize]; end; 当然你在设计时设置也行...
T tianjh007 Unregistered / Unconfirmed GUEST, unregistred user! 2003-04-17 #3 捕捉消息，或者自定义一个过程 procedure TfrmMain.HideForm(Sender: TObject); begin frmMain.Hide; end; 在Create事件中写 Application.OnMinimize :=HideForm;
捕捉消息，或者自定义一个过程 procedure TfrmMain.HideForm(Sender: TObject); begin frmMain.Hide; end; 在Create事件中写 Application.OnMinimize :=HideForm;
O oiwin Unregistered / Unconfirmed GUEST, unregistred user! 2003-04-17 #5 Application.OnMinimize:=你定义的过程
S stuwei Unregistered / Unconfirmed GUEST, unregistred user! 2003-04-17 #6 Procedure HandMessage(Var msg:TMessage); message WM_SYSCOMMAND; if msg.WParam = SC_MINIMIZE then begin msg.result:=0; self.visable:=false; end else Inherited;
Procedure HandMessage(Var msg:TMessage); message WM_SYSCOMMAND; if msg.WParam = SC_MINIMIZE then begin msg.result:=0; self.visable:=false; end else Inherited;
