如何将label的caption文字复制或保存成图形,并输出成文件?(100分)

  • 主题发起人 主题发起人 chemer
  • 开始时间 开始时间
C

chemer

Unregistered / Unconfirmed
GUEST, unregistred user!
[?]我想将label的caption文字复制或保存成图形,并输出成文件?
最好是gif格式背景透明。如何实现?
 
你如果只是想要标签的文字效果的话,那你可以用一个屏幕抓图工具将它抓成图片即可,
最简单的就是:在键盘上按一下Print键,然后在画图工具了新建一个文档然后选择粘贴
最后剪切你想要的文字效果即可。
 
procedure TForm1.Button1Click(Sender: TObject);
var
Bmp :TBitmap;
begin
Bmp :=TBitmap.Create;
Bmp.Width :=Label1.Width;
Bmp.Height :=Label1.Height;
Bmp.Canvas.TextOut(0,0,Label1.Caption);
Bmp.SaveToFile('c:/aaa.bmp');
Bmp.Free;
end;
如果保存为gif格式,你需要下载一个GifImage控件。
 
接受答案了.
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
D
回复
0
查看
1K
DelphiTeacher的专栏
D
D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
2K
DelphiTeacher的专栏
D
后退
顶部