procedure TForm1.SaveClick(Sender: TObject);
var
child: TChildFrm; // 你的子窗体类型
begin
if ActiveMDIChild = nil then // 如果有无当前子窗体,终止
Exit;
child := (ActiveMDIChild as TChildFrm); // 转换类型
child.Image1.Picture.SaveToFile(filename); // 保存图片
end;
var
child: TChildFrm; // 你的子窗体类型
begin
if ActiveMDIChild = nil then // 如果有无当前子窗体,终止
Exit;
child := (ActiveMDIChild as TChildFrm); // 转换类型
child.Image1.Picture.SaveToFile(filename); // 保存图片
end;
解决方案 »
- LISTVIEW1.Items[I].SubItems.Strings[0]:='123' 报错:list out of bounds 0 救命那
- 我想做一个小型的桌面程序?怎么连数据库,给个源程序?
- 怎么创建文件夹
- 如果让ListView/TreeView向Windows的资源管理器拖动文件?
- 谁有delphi6网络编程一书的代码????????????
- 关于用ADO操作数据库的问题
- 合作开发:珠宝首饰管理系统,有经验的请进
- SQL Server中 的序号字段设了标识,那我做了无数次的删除添加等反复类似操作后,这个整型值的字段会不会溢出?在Delphi中操作的
- 竖线图表显示
- 不同窗体的控件调用问题
- 急需关于ISBN编码规则与有效性验证的知识或文章!!!有效者另出加分帖,急需!!!
- 超级难题:Printer对象的打印问题
我创建了好几个Image,并且它们组成一个整体,必须保存在一个文件中
To:Asus(风月无边)
请详细一点? ;)
我动态创建的Image,有若干个,每个Image的Picture是不一样的,这些Image有规律的排列以后就是一个整体,所以,。我说清楚了吗?
哪儿有这本书的下载?
是哪个出版社的,作者?
将所有的图片通过TBitmap.Canvas画到一起,然后在SaveToFile
只是书价贵了点!!