biochip2 - Sa 15.01.05 20:34
Titel: zugriff aut Tcanvas bei ableiten von Tshape
H, Mit D3 kann mann sofort mit canvas.pocedur/eigenschaft auf dem canvas zeichnen
und d6 muss da erst der vordefinierte canvas:Tcanvas aufgerufen werden.
Tpaintbox wohl ebenso
z.B Timage gehts Wer kann mir helfen wie ich an die Zeichenfläche Tcanvas rankomme.
ich möchte die shape-eigenschaft auf StDreieck erweitern das muss doch gehen!
Delphi-Quelltext
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23: 24: 25: 26: 27: 28: 29: 30: 31:
| type tDreieck=class(tshape) private ........... public constructor create(aowner:tcomponent);override; published ............. canvas.polygon([point(0,100),point(50,0),point(100,100)]); .......... end; TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); procedure FormCreate(Sender: TObject); private public dreieck:Tdreieck; end; constructor tDreieck.create(aowner:tcomponent); begin inherited create(aowner); ............ end; procedure TForm1.FormCreate(Sender: TObject); begin Dreieck:=tshape.Create(self); Dreieck.Parent:=self; ........... end; |
Gruss
biochip2