求救，请大家帮忙

[fangming]

既能屏蔽掉窗体上的关闭按钮(叉号)，又能当单击该窗体上的button时关闭穿体，该如何实现，请帮帮忙在此谢了

[eee16]

给你一种方法
定义一个变量canclose:boolean

窗体创建时：canclose:=false

按钮单击事件:canclose:=true;
form1.close;

窗体onclose事件：if canclose then action:=cafree else action:=canone;

[Kevin_Lmx]

procedure TForm1.FormCreate(Sender: TObject);
begin
EnableMenuItem(GetSystemMenu(Handle, FALSE), SC_CLOSE,MF_BYCOMMAND or MF_GRAYED);
{屏蔽掉关闭按钮(叉号)}
end;

[kuki84]

评比X按纽：窗体borderstyle=bsnone
按按纽关闭：在按纽onclick事件中加语句 close;

[myheartzhang]

屏蔽关闭关掉按纽 borderstyle:=bsnone
或是，biSystemMenu := false;
用BUTTON 来关闭 ： self.close;