delphi
kellysir
这个作者很懒,什么都没留下…
展开
-
使用IdHttp控件获取网页数据,并解决中文乱码问题
procedure .............. var strHttpData:TStringStream; //存储idHttp返回的数据 strType:String; //类型:项目学习、模拟习题 StrSubject:String; //科目类别:Word/Excel/PPT/Flash/Ps/Python....... begin //===================...原创 2018-12-22 08:46:55 · 1297 阅读 · 0 评论 -
Delphi动态创建MainMenu和PopupMenu菜单的方法
procedure TForm1.Button1Click(Sender: TObject); var MainMenu:TMainMenu; MenuItem:TMenuItem;begin //创建主菜单对象,并设置主窗口的菜单为MainMenu对象 MainMenu:=TMainMenu.Create(Self); Self.Menu:=MainMenu; //创建MainMenu主菜单的...转载 2018-12-22 09:10:38 · 3687 阅读 · 0 评论