delphi添加背景图片为什么不行
procedureTForm1.FormCreate(Sender:TObject);varg:TGraphic;beging:=TBitmap.Create;g.Loa...
procedure TForm1.FormCreate(Sender: TObject);
var g:TGraphic;
begin
g:=TBitmap.Create;
g.LoadFromFile('D:\文档\RAD Studio\Projects\金庸杀\img\back.bmp');
self.Canvas.StretchDraw(ClientRect,g);
g.Free;
end; 展开
var g:TGraphic;
begin
g:=TBitmap.Create;
g.LoadFromFile('D:\文档\RAD Studio\Projects\金庸杀\img\back.bmp');
self.Canvas.StretchDraw(ClientRect,g);
g.Free;
end; 展开
展开全部
你的代码在XE下没有问题.
D7测试也没有问题.
楼上所说的路径有空格这个没问题
两边加""是在批处理中才会用到的.在Delphi中没必要使用!
你的背景图片不显示,最主要的是看下你的back.bmp是不是bmp格式的文件吧.
D7测试也没有问题.
楼上所说的路径有空格这个没问题
两边加""是在批处理中才会用到的.在Delphi中没必要使用!
你的背景图片不显示,最主要的是看下你的back.bmp是不是bmp格式的文件吧.
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
==这位老兄是正确的
写错位置,用canvas画到Form上会在shou之后的paint事件里重画
写到 OnPaint里就好了
不过不建议这样用,因为是画上的所以当窗体大小改变的时候 会引起重画 就会很难看
建议用个Image,Align设置成alClient,这样在窗体改变的时候就不会出现那种情况
再不明白的可以找我,在线聊
写错位置,用canvas画到Form上会在shou之后的paint事件里重画
写到 OnPaint里就好了
不过不建议这样用,因为是画上的所以当窗体大小改变的时候 会引起重画 就会很难看
建议用个Image,Align设置成alClient,这样在窗体改变的时候就不会出现那种情况
再不明白的可以找我,在线聊
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
注意文件名中,最好不要有空格,如果一定要有的话,就在写成:
' "D:\文档\RAD Studio\Projects\金庸杀\img\back.bmp" ' 试一下.
' "D:\文档\RAD Studio\Projects\金庸杀\img\back.bmp" ' 试一下.
参考资料: sername
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询