如圖,這要如何關閉呢?

您好﹗    Form.BorderStyle屬性值為﹕bsDialog, bsToolWindows, bsSizeToolWin就沒有這個窗口了﹗    P.S  剛才看錯圖示了﹐不好意思﹗    ===================== 努力,相信會獲得美麗! 忻晟 發表人 - cashxin2002 於 2003/08/15 15:19:26

------
忻晟

不是,這是FORM(視窗)上方,按滑鼠右鍵產生出來的,我的PopupMenu及WindowMenu都是空白的,並沒有輸入任何東西。

将BorderStyle设置为bsNone 如图，然后[X]关闭自己定义就可以了！ 我想你上面的窗体也是自己做的吧 發表人 -

引言: 您好﹗ Form.BorderStyle屬性值為﹕bsDialog, bsToolWindows, bsSizeToolWin就沒有這個窗口了﹗ P.S 剛才看錯圖示了﹐不好意思﹗ ===================== 努力,相信會獲得美麗! 忻晟 發表人 - cashxin2002 於 2003/08/15 15:19:26

抱歉你所說的方法，我都試了其結果如下：
bsDialog : 功能表是小了,但還是在(如圖)

bsToolWindows & bsSizeToolWin : 他破壞了我原有的畫面,但問題仍就存在(如圖)

引言: 将BorderStyle设置为bsNone 如图，然后[X]关闭自己定义就可以了！ 我想你上面的窗体也是自己做的吧 < face="Verdana, Arial, Helvetica"> 您好:
使用你的做法是沒有了功能表沒錯, 但我定義在本程式中的[X]關閉程功能 也跟著不見了,且我自己特別加上的美觀窗體也跟著消失了..雖已經達到我 所說的功能,但還是沒有辦法採用(如圖)..謝謝了

如图，然后[X]关闭自己定义就可以了！ 加2个Timage, 一个放那个长的图，Image1.Align :=altop; 一个放[x], procedure TForm1.Image2Click(Sender: TObject); begin close; end; 發表人 - sos_admin 於 2003/08/15 16:06:11

引言: 如图，然后[X]关闭自己定义就可以了！ 加2个Timage, 一个放那个长的图，Image1.Align :=altop; 一个放[x], procedure TForm1.Image2Click(Sender: TObject); begin close; end; 發表人 - sos_admin 於 2003/08/15 16:06:11

我所使用的方式,並非你所說的Image圖示拼出來的,而我是用一種取代原有視窗的樣式,所以還是不能用啊!! 但也真的很謝謝你~

那您就用如下方式实现就可以了，不论窗体再任何模式下！ unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Edit1: TEdit; procedure FormCreate(Sender: TObject); private procedure OnMessage(var Msg: Tmsg; var Handled: Boolean); { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.OnMessage(var Msg: Tmsg; var Handled: Boolean); begin if msg.wParam=2 then handled:=true; end; procedure TForm1.FormCreate(Sender: TObject); begin application.onMessage:=onMessage; end; end.

謝謝sos_admin 問題解決了,真是萬分的感激.    其實有人告訴我有那個又不會怎樣,但我總覺的一個程式的防呆很重要, 只要有一點點不注意的,就可能會造成程式的敗筆, 花了再多功夫做了 東西,到了最後還是成了失敗的做品就不好了.. 這是我的感言啦!! 在此特別感謝 >

你將 Form 的 BorderIcons 的 biSystemMenu 設 False 便可消掉該 Menu 但這也會使所有 System Button (含 X ) 都一起消掉。 要自行取捨了。 (你也可使用 Jedi VCL 來加回 X 按鈕 : http://sourceforge.net/projects/jvcl)

Ignore the right mouse click.... Alt-space is left to you...  < class="code"> type TForm1 = class(TForm) private procedure WMNCRBUTTONDBLCLK(var Msg: TWMNCRButtonDown); message WM_NCRBUTTONDOWN; public end; {...} procedure TForm1.WMNCRBUTTONDBLCLK(var Msg: TWMNCRButtonDown); begin Msg.Result := 0; end;

引言: Ignore the right mouse click.... Alt-space is left to you... < class="code"> type TForm1 = class(TForm) private procedure WMNCRBUTTONDBLCLK(var Msg: TWMNCRButtonDown); message WM_NCRBUTTONDOWN; public end; {...} procedure TForm1.WMNCRBUTTONDBLCLK(var Msg: TWMNCRButtonDown); begin Msg.Result := 0; end;

版主請問一下,這個應放在那裡比較適當,之前雖已經滿意的答案,但因為他影響了我的PopupMenu的第二項選項功能造成該功能完全沒有反應,而導致目前無法使用.

抱歉，改正一下： procedure TForm1.OnMessage(var Msg: Tmsg; var Handled: Boolean); begin if msg.wParam=2 then if msg.hwnd=handle then handled:=true; inherited; end;