Fórum MDI com imagem. #210707

Lá vai..

procedure TFMain.FormShow(Sender: TObject);
procedure CarregaFundo;
var
Bitmap : TBitmap;
Imagem : TJPEGImage;
posDest,
posOrig : TRect;
begin
try
Imagem := TJPEGImage.Create;
Imagem.LoadFromFile(ExtractFilePath(Application.ExeName) + ARQ_FUNDO_APLICACAO);

Bitmap := TBitmap.Create;
Bitmap.Assign(Imagem);
Imagem.Free;

Imagem := CreateInitImage;

posOrig := Rect(FMain.Left + 6, FMain.Top + PnTop.Height +6, FMain.Width, FMain.Height);
posDest := Rect(0, 0, FMain.Width - posOrig.Left, FMain.Height - posOrig.Top);

MDIWallPaper1.Bitmap.Assign(Imagem);
MDIWallPaper1.Bitmap.Canvas.CopyRect(posDest,Bitmap.Canvas,posOrig);
finally
Bitmap.Free;
Imagem.Free;
end;
end;
begin
...
end;

-------------------------------

Atenciosamente

Silvio Guedes