Hallo Meflin,
in der Online-"Hilfe" zu Delphi 2006 fehlen leider die Beispiele, deshalb hier ein Auszug aus der Delphi6-Hilfe:
Zitat von
Delphi6-Hilfedatei:
Im folgenden Code wird ein Bitmap aus einer Datei geladen und der Eigenschaft Brush der Zeichenfläche von Form1 zugewiesen.
Delphi-Quellcode:
var
Bitmap: TBitmap;
begin
Bitmap := TBitmap.Create;
try
Bitmap.LoadFromFile('MyBitmap.bmp');
Form1.Canvas.Brush.Bitmap := Bitmap;
Form1.Canvas.FillRect(Rect(0,0,100,100));
finally
Form1.Canvas.Brush.Bitmap := nil;
Bitmap.Free;
end;
end;
Du solltest also nicht vergessen, die Eigenschaft Bitmap wieder mit dem Wert NIL zu besetzen und anschließend die zuvor benutzte Bitmap freizugeben.
Gruß Hawkeye