Registriert seit: 12. Dez 2004
Ort: Wien, Österriech
893 Beiträge
Delphi 6 Enterprise
|
Re: Auf dynamisch erzeugtes Form zeichnen
22. Apr 2005, 11:02
Es muss Image1.Parent := Form;....
EDIT
Delphi-Quellcode:
with image do
begin
left := 15;
top := 15;
width := 150;
Height := 150;
visible := true;
// picture := NIL;
//DAS HIER AUCH
picture.bitmap.width := 150;
picture.bitmap.height := 150;
end; // of image
with image.Canvas do
begin
brush.color:= clred;// clwhite;
pen.color := clwhite;
Ellipse(0,0,150,150);
end; // of image.canvas
Katura Haris Es (ein gutes Wort) ist wie ein guter Baum, dessen Wurzel fest ist und dessen Zweige in den Himmel reichen.
|