请问如何把所有的popupmenu内项目加入checklistbox中？ |
|
尚未結案
|
|
jtp
初階會員   發表：39 回覆：81 積分：29 註冊：2003-04-20 發送簡訊給我 |
请问如何把所有的popupmenu内项目加入checklistbox中，然后反过来，只要checklistbox中选中了的项目就把此菜单项enable，否则disable? 我之前用speedbutton就能做到前面所说的那点
for I := 0 to frmmain.ComponentCount -1 do
begin
if frmmain.Components[I] is Tspeedbutton then
begin
checklistbox1.Items.Add((frmmain.Components[I] as Tspeedbutton).Caption);
end;
end;
|
|
Justmade
版主 發表：94 回覆：1934 積分：2030 註冊：2003-03-12 發送簡訊給我 |
建立List :
procedure TForm1.Button1Click(Sender: TObject);
var i : integer;
begin
CheckListBox1.Clear;
for i := 0 to PopupMenu1.Items.Count - 1 do
CheckListBox1.Items.Add(PopupMenu1.Items[i].Caption);
end; 取 Enable 值 :
procedure TForm1.Button2Click(Sender: TObject);
var i : integer;
begin
for i := 0 to PopupMenu1.Items.Count - 1 do
CheckListBox1.Checked[i] := PopupMenu1.Items[i].Enabled;
end; 設 Enable 值 :
procedure TForm1.Button3Click(Sender: TObject);
var i : integer;
begin
for i := 0 to PopupMenu1.Items.Count - 1 do
PopupMenu1.Items[i].Enabled := CheckListBox1.Checked[i];
end;
|
|
ha0009
版主 發表：16 回覆：507 積分：639 註冊：2002-03-16 發送簡訊給我 |
|
|
jtp
初階會員 發表：39 回覆：81 積分：29 註冊：2003-04-20 發送簡訊給我 |
發表時間：2003-06-18 15:42:46
IP:218.18.xxx.xxx 未訂閱
系統時間：2024-06-01 23:52:48
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |