procedure TForm1.FormCreate(Sender: TObject);
var
b:tbitmap;
begin
b:=Tbitmap.Create;
b.Width:=form1.Width;
b.Height:=form1.Height;
b.LoadFromFile('1.bmp');
form1.canvas.draw(0,0,b);
b.Free;
end;
为什么不能在form1上显示一个图片
还是新手,谢谢
var
b:tbitmap;
begin
b:=Tbitmap.Create;
b.Width:=form1.Width;
b.Height:=form1.Height;
b.LoadFromFile('1.bmp');
form1.canvas.draw(0,0,b);
b.Free;
end;
为什么不能在form1上显示一个图片
还是新手,谢谢
回答了你的为什么