已经解决

冥界3大法王

https://codeload.github.com/AliDehbansiahkarbon/ChatGPTWizard/zip/refs/heads/main


有两bug
1是重了
2是目标有点问题
由于使用了Fram加载了，那东西用的少，又懒得麻烦QQ群主，所以自己折腾一晚上才成功。

修改 X:\Delphi11.1\DeepSeek_AI\ChatGPTWizard-main\Forms\UChatGPTQFrame.pas

[Delphi] 纯文本查看 复制代码

?

01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40

procedure TFram_Question.MenuItemClick(Sender: TObject); begin   // ShowMessage((Sender as TMenuItem).Caption);   mmoQuestion.Lines.Add((Sender as TMenuItem).Caption); end;   procedure TFram_Question.InitialClassViewMenueItems(AClassList: TClassList); var   LvKey: Integer;   LvMenuItem: TMenuItem;   LvTempSortingArray: TArray<Integer>;     procedure AddMenuItem(ACaption: string);   var     MenuItem: TMenuItem;     SL: TStringList;     I: Integer;   begin     LvMenuItem := TMenuItem.Create(Self);     LvMenuItem.Caption := ACaption;     LvMenuItem.OnClick := ClassViewMenuItemClick;     pmClassOperations.Items.Add(LvMenuItem);       begin       SL := TStringList.Create;       try         SL.LoadFromFile(ExtractFileDir(Application.Exename) + '\加载菜单.txt');         for I := 0 to SL.Count - 1 do         begin           MenuItem := TMenuItem.Create(pmMemo);           MenuItem.Caption := SL[I];           MenuItem.OnClick := MenuItemClick;           pmMemo.Items.Add(MenuItem);         end;       finally         SL.Free;       end;     end;     end;

哪位明白人说说，该修改哪才能不重加载TXT？

冥界3大法王

搞定了，睡觉。

冥界3大法王

进阶修改版