如何将指定图片在窗体上画出来?(50分)

  • 主题发起人 主题发起人 summax
  • 开始时间 开始时间
S

summax

Unregistered / Unconfirmed
GUEST, unregistred user!
请各位大侠指教!
 
procedure TForm1.Button1Click(Sender: TObject);
var
Bitmap: TBitmap;
MyRect, MyOther: TRect;
begin
Bitmap := TBitmap.Create;
Bitmap.LoadFromFile('E:/dzcvs/bmp/custom.bmp');

MyRect := Rect(0,0,bitmap.Width,Bitmap.Height);

MyOther := Rect(0,50,bitmap.Width,50+Bitmap.Height);

Form1.Canvas.CopyRect(MyOther,Bitmap.Canvas,MyRect);
Bitmap.Free;
end;
 
谢谢~根据你的方法.是可以画出图来.但是我在窗体创建的时候用你说的方法就不行了..不知道在窗体的TForm1.FormCreate事件.或者是TForm1.FormShow时加入有什么方法吗? 我就是希望在窗体显示出来时已经是画好了的. 谢谢你了
 
在oncreate中加载Bitmap.LoadFromFile('E:/dzcvs/bmp/custom.bmp');
在Form.Onpaint中
canvas.Draw(x,y,bitMap);
 
多人接受答案了。
 

Similar threads

D
回复
0
查看
764
DelphiTeacher的专栏
D
D
回复
0
查看
738
DelphiTeacher的专栏
D
D
回复
0
查看
691
DelphiTeacher的专栏
D
后退
顶部