B beta Unregistered / Unconfirmed GUEST, unregistred user! 2001-04-30 #2 弄掉恐怕不容易，可以让它失效 如果一定要弄掉，那只好创建一个没有标题栏的窗体，自己“假冒”其他要用的按扭
P puzzle Unregistered / Unconfirmed GUEST, unregistred user! 2001-04-30 #3 看看 form 的 BorderIcons属性，那个biSystemMenu就是那个关闭按钮。 它能满足你的要求！
T terry_lzs Unregistered / Unconfirmed GUEST, unregistred user! 2001-04-30 #4 可以把它弄掉，不过只能把那三个按钮一起去掉 只要将form的BorderIcons的biSystemMenu设置为false
Z zrj Unregistered / Unconfirmed GUEST, unregistred user! 2001-04-30 #8 看看form的几个属性应该可以满足要求,你可以把不过bordericon的bisysmenu设为false 就一个按钮也没有了,你还是用beta的办法吧,把bisysmenu设为false,或者干脆borstyle设 为none,自己做按钮'假冒',事件嘛,写windowsstate为,wsnormal,....wsminimized.
看看form的几个属性应该可以满足要求,你可以把不过bordericon的bisysmenu设为false 就一个按钮也没有了,你还是用beta的办法吧,把bisysmenu设为false,或者干脆borstyle设 为none,自己做按钮'假冒',事件嘛,写windowsstate为,wsnormal,....wsminimized.
K Kylix㊣ Unregistered / Unconfirmed GUEST, unregistred user! 2001-04-30 #9 如果要使它看不见，上面已经说得很清楚了。 如果只是要使它失效，可以试试这样： 但是如果要使它变成灰的，我还没想过，请各位大富翁指点吧。 ... private bClose: boolean; procedure TForm1.FormCreate(Sender: TObject); begin bClose := False; end; procedure TForm1.Button2Click(Sender: TObject);//假设要按此按钮关闭窗体。 begin bClose := True; Close; end; procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean); begin CanClose := bClose; end; //一种笨方法，呵呵……
如果要使它看不见，上面已经说得很清楚了。 如果只是要使它失效，可以试试这样： 但是如果要使它变成灰的，我还没想过，请各位大富翁指点吧。 ... private bClose: boolean; procedure TForm1.FormCreate(Sender: TObject); begin bClose := False; end; procedure TForm1.Button2Click(Sender: TObject);//假设要按此按钮关闭窗体。 begin bClose := True; Close; end; procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean); begin CanClose := bClose; end; //一种笨方法，呵呵……
吕 吕雪松 Unregistered / Unconfirmed GUEST, unregistred user! 2001-04-30 #10 1,弄掉标题兰 2,搞个Panel或Image在顶上 3,在Panel或Image中的MouseDown中接管Caption的事件
