Delphi图像处理问 Delphi有没有图像控件可以作为容器,放置Label等控件,并保存为图片文件如.bmp? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 procedure TForm1.Button1Click(Sender: TObject);begin Image1.AutoSize := True; Image1.Picture.Bitmap.Width := Panel1.Width; Image1.Picture.Bitmap.Height := Panel1.Height; Image1.Picture.Bitmap.Canvas.FillRect(Image1.Picture.Bitmap.Canvas.ClipRect); Panel1.PaintTo(Image1.Picture.Bitmap.Canvas, 0, 0);end; 求一个多线程简单的例子 国庆回家陪老爸老妈的来报个名 寻找Delphi高手,共同创业 F1BOOK如何知道有几个SHEET,啊,是什么属性哦,谢了, adoquery的过滤属性问题 提问有关数据库的问题 问一个查询的问题,很简单的 下面的代码是可以在LAN内进行聊天的,有没有高手可以将其修改,实现类似PCANYWHERE的添加客户端功能? 如何修改文件的日期? 请问,谁能告诉我1stclass控件集中 fcTreeView1控件 和 fcDBTreeView1控件的用法.不胜感谢 怎样写程序将另一台电脑上的共享文件夹映射成本地硬盘? 回来了~
begin
Image1.AutoSize := True;
Image1.Picture.Bitmap.Width := Panel1.Width;
Image1.Picture.Bitmap.Height := Panel1.Height;
Image1.Picture.Bitmap.Canvas.FillRect(Image1.Picture.Bitmap.Canvas.ClipRect);
Panel1.PaintTo(Image1.Picture.Bitmap.Canvas, 0, 0);
end;