請問有沒有辦法讓MainMenu暫時失去作用 |
|
答題得分者是：cashxin2002
|
|
andy1119
一般會員   發表：32 回覆：35 積分：13 註冊：2003-11-09 發送簡訊給我 |
|
|
cashxin2002
版主   發表：231 回覆：2555 積分：1937 註冊：2003-03-28 發送簡訊給我 |
您好﹗ TMainMenu元件本身并不能控制失效﹐只能從其Items屬性處下手﹐方法如下﹕
procedure TForm1.Button1Click(Sender: TObject);
Var
I: Integer;
begin
For I:=0 to (MainMenu1.Items.Count-1) do
begin
MainMenu1.Items[I].Enabled := False;
end;
end;
若需要恢复使用功能﹐則可將以上程式碼中MainMenu1.Item[I].Enabled屬性值改為True即可﹒ =================================
------
忻晟 |
|
andy1119
一般會員 發表：32 回覆：35 積分：13 註冊：2003-11-09 發送簡訊給我 |
發表時間：2005-10-03 11:09:32
IP:203.204.xxx.xxx 未訂閱
系統時間：2024-11-25 14:50:18
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |