830
社区成员
发帖
与我相关
我的任务
分享关于Timage和pagecontrol，求助！给分！
我image组件显示图片，请问怎样让图片自动适应组件的大小？在组建范围内自动显示完整的图片，应当怎样设置属性？
如果我用了pagecontrol来乘放图片，每一个tabsheet中放一张图片，请问怎样一次性将每一个tabsheet中的图片保存下来？
如果我用了pagecontrol来乘放图片，每一个tabsheet中放一张图片，请问怎样一次性将每一个tabsheet中的图片保存下来？
...全文
请发表友善的回复…
发表回复
chechy 2002-02-28
- 打赏
- 举报
TImage(pagecontrol1.pages[i].Controls[i]).Picture.SaveToFile(IntToStr(j) + '.bmp');
dext 2002-02-27
- 打赏
- 举报
表示没有这个方法！
其实你可以换一种方法！试试吧！
for i := 0 to pagecontrol1.pagecount - 1 do
begin
for j := 0 to pagecontrol1.pages[i].ControlCount - 1 do
if pagecontrol1.pages[i].Controls[i] is TImage then
begin
TImage(pagecontrol1.pages[i].Controls[i]).Picture.SaveToFile(IntToStr(j) + '.bmp');
Break;
end;
end
其实你可以换一种方法！试试吧！
for i := 0 to pagecontrol1.pagecount - 1 do
begin
for j := 0 to pagecontrol1.pages[i].ControlCount - 1 do
if pagecontrol1.pages[i].Controls[i] is TImage then
begin
TImage(pagecontrol1.pages[i].Controls[i]).Picture.SaveToFile(IntToStr(j) + '.bmp');
Break;
end;
end
lovedata 2002-02-27
- 打赏
- 举报
for i := 0 to pagecontrol1.pagecount - 1 do
begin
for j := 0 to pagecontrol1.pages[i].ControlCount - 1 do
if pagecontrol1.pages[i].Controls[i] is TImage then
begin
TImage(pagecontrol1.pages[i].Controls[i]).SaveToFile(IntToStr(j) + '.bmp');
Break;
end;
end
我在运行上面的代码时，会出现：[Error] Unit1.pas(127): Undeclared identifier: 'SaveToFile'信息。这是为什么？
begin
for j := 0 to pagecontrol1.pages[i].ControlCount - 1 do
if pagecontrol1.pages[i].Controls[i] is TImage then
begin
TImage(pagecontrol1.pages[i].Controls[i]).SaveToFile(IntToStr(j) + '.bmp');
Break;
end;
end
我在运行上面的代码时，会出现：[Error] Unit1.pas(127): Undeclared identifier: 'SaveToFile'信息。这是为什么？
azsxdc 2002-02-27
- 打赏
- 举报
for i := 0 to pagecontrol1.pagecount - 1 do
begin
for j := 0 to pagecontrol1.pages[i].ControlCount - 1 do
if pagecontrol1.pages[i].Controls[i] is TImage then
begin
TImage(pagecontrol1.pages[i].Controls[i]).SaveToFile(IntToStr(j) + '.bmp');
Break;
end;
end
我在运行上面的代码时，会出现：[Error] Unit1.pas(127): Undeclared identifier: 'SaveToFile'信息。这是为什么？
begin
for j := 0 to pagecontrol1.pages[i].ControlCount - 1 do
if pagecontrol1.pages[i].Controls[i] is TImage then
begin
TImage(pagecontrol1.pages[i].Controls[i]).SaveToFile(IntToStr(j) + '.bmp');
Break;
end;
end
我在运行上面的代码时，会出现：[Error] Unit1.pas(127): Undeclared identifier: 'SaveToFile'信息。这是为什么？
chechy 2002-02-27
- 打赏
- 举报
1、Image1.AutoSize := True;
2、
for i := 0 to pagecontrol1.pagecount - 1 do
begin
for j := 0 to pagecontrol1.pages[i].ControlCount - 1 do
if pagecontrol1.pages[i].Controls[i] is TImage then
begin
TImage(pagecontrol1.pages[i].Controls[i]).SaveToFile(IntToStr(j) + '.bmp');
Break;
end;
end
2、
for i := 0 to pagecontrol1.pagecount - 1 do
begin
for j := 0 to pagecontrol1.pages[i].ControlCount - 1 do
if pagecontrol1.pages[i].Controls[i] is TImage then
begin
TImage(pagecontrol1.pages[i].Controls[i]).SaveToFile(IntToStr(j) + '.bmp');
Break;
end;
end
