procedure TForm1.Button1Click(Sender: TObject);
var
bmp:TBitmap ;
rect:TRect ;
begin
if opendialog1.Execute then
bmp:=TBitmap.Create ;
bmp.LoadFromFile(opendialog1.FileName);
rect:=image1.ClientRect ; ////出错
Image1.Canvas.StretchDraw(rect,bmp);
end;procedure TForm1.Button2Click(Sender: TObject);
begin
SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, pChar(opendialog1.FileName),
SPIF_UPDATEINIFILE);
end;
button 1未打开预览,button2位设置壁纸 编译没错
运行出错 ....
rect:=image1.ClientRect ;
这一行
如何解决?
var
bmp:TBitmap ;
rect:TRect ;
begin
if opendialog1.Execute then
bmp:=TBitmap.Create ;
bmp.LoadFromFile(opendialog1.FileName);
rect:=image1.ClientRect ; ////出错
Image1.Canvas.StretchDraw(rect,bmp);
end;procedure TForm1.Button2Click(Sender: TObject);
begin
SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, pChar(opendialog1.FileName),
SPIF_UPDATEINIFILE);
end;
button 1未打开预览,button2位设置壁纸 编译没错
运行出错 ....
rect:=image1.ClientRect ;
这一行
如何解决?
解决方案 »
- access数据库 实现 表中 数量*单价=金额
- pagecontrol选中一页后,冻结其它所有的页,即是不能选择其他页
- 请有经验的大虾们推荐能将数据库中数据生成PDF文件和图片文件的控件.
- 如何搜索一个盘中中的指定文件,如*.rm
- TDBGridEh中如何获得某一单元格的值
- 前两天的画线不能改变颜色问题。好几天没人能解决。再拿出来碰碰运气。
- 关于MDI窗体前显示登陆窗体的问题!
- sockconnection连接,请赐教,谢谢
- 我有一个在2000和98下打印的问题
- 我是个delphi初学者,请问如何根据图片路径把图片导出到word?
- 哪位能帮帮忙把这段Delphi 代码 转换成 c# 代码 或者帮我说说 代码的意思
- CreateOleObject()的参数有好多,比如'word.basic','word.application','excel.application'等,这些参数在哪里定义,哪里有说明?
另外,这种地方最好都用 try...finally 围起来
function JpgTobmp(srcFile: string): TBitMap;
var
jpg : TJpegImage;
bmp : TBitMap;
begin
try
jpg := TJpegImage.Create;
bmp := TBitMap.Create;
jpg.LoadFromFile(srcFile);
bmp.Assign(jpg);
jpg.Free;
Result := bmp;
except
Result := nil;
end;
end;