Bir adet *.bmp uzantılı dosyayı alıp form arka planına çizdiriyoruz.
procedure TForm1.Background;
var
bmp : TBitmap;
begin
bmp := TBitmap.Create;
bmp.LoadFromFile('C:\Users\HakanUcar\Desktop\close_window.bmp');
Form1.Canvas.Brush.Bitmap := bmp;
Form1.Canvas.FillRect(Rect(0,0,Form1.Width,Form1.Height));
end;
procedure TForm1.FormPaint(Sender: TObject);
begin
Background;
end;
Method 2:
0 yorum:
Yorum Gönder