如何向窗体动态赋值图标! 1。如何向窗体动态赋值图标。怎么样把图标存进数据库 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 procedure TForm1.Button1Click(Sender: TObject);var p: TPicture; OpenDialog1: TOpenDialog;beginp:=TPicture.Create;OpenDialog1:=TOpenDialog.Create(nil);OpenDialog1.Filter:='*.ico|*.ico';OpenDialog1.Execute;p.LoadFromFile(OpenDialog1.FileName);Application.Icon.Assign(p.Icon);FreeAndNil(p);FreeAndNil(OpenDialog1);end; 崩溃了.delphi2010的JSONObject传入需要AnsiString.它自己返回却是UnicodeString 怎样对其他单元隐藏类或禁止创建实例? 如何把桌面图标的位置保存起来?还原? 我怨其谁,人生何哉 谁能帮我看我一下怎么会出现这个错误。谢谢! 辞职了,散分! 请问有谁知道ProDelphi的用法? 在Delphi中如何对硬盘进行分区? 关于 TAggregateField 的动态创建和删除! 由哪位知晓? delphi6 自动退出的问题? 小菜一碟——串口通讯控制器V1.24源代码发布! SQLServer----Access数据转换问题
var
p: TPicture;
OpenDialog1: TOpenDialog;
begin
p:=TPicture.Create;
OpenDialog1:=TOpenDialog.Create(nil);
OpenDialog1.Filter:='*.ico|*.ico';
OpenDialog1.Execute;
p.LoadFromFile(OpenDialog1.FileName);Application.Icon.Assign(p.Icon);FreeAndNil(p);
FreeAndNil(OpenDialog1);
end;