Und hier nun Original Embarcadero:
Delphi-Quellcode:
procedure TForm2.Button2Click(Sender: TObject);
var
MyRect: TRectF;
begin
// sets the circumscribed rectangle of the ellipse
MyRect := TRectF.Create(50, 40, 200, 270);
// draws the ellipse on the canvas
Image1.Bitmap.Canvas.BeginScene;
Image1.Bitmap.Canvas.DrawEllipse(MyRect, 40);
Image1.Bitmap.Canvas.EndScene;
end;
Und wieder "Kein Eigentümer der Objektsperre"
Ciao
Stefan