如題,謝謝!

有幾種方式:
1. 把 TImage 放入 TLayout 裡的左上角.
2. 利用 Canvas.DrawBitmap 畫到自己想要的位置.

Hi,感謝Main Chen大大指導:
試了一下,覺得怪怪的,
在測試專案中,小弟使用 Panel 內放 TImage(Image1),Panel並非在整個畫面左上角,如下的程式,在Image1.OnPaint調用,正常將圖顯示在Image1的左上角,
但,若是在一個Button調用,卻會顯示在整個畫面左上角(超出Image1的範圍了),
謝謝!
procedure TForm1.LoadImage;
var
Bmp: TBitmap;
RectSrc, RectDst: TRectF;
begin
Bmp := TBitmap.Create;
Bmp.LoadFromFile('.\BackGround.jpg');
RectSrc := TRectF.Create(0, 0, Bmp.Width, Bmp.Height);
RectDst := TRectF.Create(0, 0, Bmp.Width, Bmp.Height);
Image1.Canvas.BeginScene;
Image1.Canvas.DrawBitmap(Bmp, RectSrc, RectDst, 1, True);
Image1.Canvas.EndScene;
end;

===================引 用 Main Chen 文 章===================

有幾種方式:


1. 把 TImage 放入 TLayout 裡的左上角.
2. 利用 Canvas.DrawBitmap 畫到自己想要的位置.

FMX 需要改成下面寫法, 在 OnPaint 裡再呼叫 LoadImage 並傳入 Canvas (這是關鍵)
procedure TForm1.Image1Paint(Sender: TObject; Canvas: TCanvas; const ARect: TRectF);
begin
LoadImage(Canvas);
end;
procedure TForm1.LoadImage(Canvas1: TCanvas);
var
Bmp: TBitmap;
RectSrc, RectDst: TRectF;
begin
Bmp := TBitmap.Create;
Bmp.LoadFromFile('d:\123.jpg');
RectSrc := TRectF.Create(0, 0, Bmp.Width, Bmp.Height);
RectDst := TRectF.Create(0, 0, Bmp.Width, Bmp.Height);
Canvas1.BeginScene;
Canvas1.DrawBitmap(Bmp, RectSrc, RectDst, 1, True);
Canvas1.EndScene;
end;