怎样屏蔽掉窗体上右上角上的关闭按扭(X)(50分)

蕊

蕊蕊

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-06-05

• #1

怎样屏蔽掉窗体上右上角上的关闭按扭(X)

 

Q

QuickSilver

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-06-05

• #2

procedure TForm1.FormActivate(Sender: TObject);<br>begin<br>EnableMenuItem(GetSystemMenu(Handle, FALSE), SC_CLOSE, MF_BYCOMMAND or MF_GRAYED);<br>end;<br>

 

凤

凤舞九天

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-06-05

• #3

BordStyle

 

J

jacobran

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-06-05

• #4

procedure TForm1.FormActivate(Sender: TObject);<br>begin<br>EnableMenuItem(GetSystemMenu(Handle, FALSE), SC_CLOSE, MF_BYCOMMAND or MF_GRAYED);<br>end;<br><br>对这个方法不错,很直接也很好用

 

H

hongama

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-06-05

• #5

直接设置BorderIcons属性就可以了：biSystemMenu:设置关闭按扭<br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;biMiniMize:最小化按扭<br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;biMaximize:最大化按扭<br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;biHelp:帮助按扭

 

蕊

蕊蕊

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-06-05

• #6

接受答案,谢谢你们