procedure TfmMainForm.Image5Click(Sender: TObject);
var
idx:integer;
begin
{ if fmMainForm.MDIChildCount>0 then Begin
for idx:=fmMainForm.MDIChildCount-1 downto 0 do
fmMainForm.MDIChildren[idx].Free;
end; }
ClearFuncItem;
ModDataWriteMenu(MainMenu1,ADOQryTmp,TImage(Sender).Tag);
StatusBar1.Panels[3].Text:=TImage(Sender).Hint;
end;
procedure TfmMainForm.ClearFuncItem;
var
MuIdx:integer;
begin
for MuIdx:=MainMenu1.Items.Count-1 downto 0 do begin
if (MainMenu1.Items[MuIdx].Tag>0) and (MainMenu1.Items[MuIdx].Tag<999999) then begin
MainMenu1.Items.Delete(MuIdx);
end;
end;
SD.UpdateMainMenu(True);
end;
在子表單打開的狀態下動態生成選單，會出現重復加載的現象，如果把所有子表單都關閉，生成的選單一切正常，這是什么原因造成的？注：用了TSkinData控制元件
uj5u.com熱心網友回復：
你看一下是不是子表單對選單有相應的操作導致的uj5u.com熱心網友回復：
子表單只是用來執行具體事務，不涉及選單操作uj5u.com熱心網友回復：
高手呢，移駕看下uj5u.com熱心網友回復：
除錯，一行一行地過，看問題出在哪里。也可以把選單操作的代碼移出來，在一個新程式里除錯，逐漸縮小范圍。uj5u.com熱心網友回復：
你要加一段搜索選單是否已經加入的代碼，當未加入時，再加入選單項。uj5u.com熱心網友回復：
新創建的控制元件會自動有個名字，你看看是不是名字重復了uj5u.com熱心網友回復：
再進行添加前進行判斷，有就跳過沒有就添加轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/59106.html
標籤：VCL組件開發及應用
上一篇：列印機切紙問題