5,388
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
timgreen 2003-12-27
- 打赏
- 举报
谢谢
12rain 2003-12-27
- 打赏
- 举报
搜索一下、很多 http://www.delphiok.com/bcjq/all/114.htm
soundbug 2003-12-27
- 打赏
- 举报
部分列子
procedure TForm1.FormClick(Sender: TObject);
var
ico1:ticon;
begin
ico1:=ticon.Create;
ico1.Handle:=LoadIcon(hInstance, 'icon');
或者看这个
http://expert.csdn.net/Expert/topic/2362/2362886.xml?temp=.9080774
procedure TForm1.FormClick(Sender: TObject);
var
ico1:ticon;
begin
ico1:=ticon.Create;
ico1.Handle:=LoadIcon(hInstance, 'icon');
或者看这个
http://expert.csdn.net/Expert/topic/2362/2362886.xml?temp=.9080774
