Aahh!
Delphi-Quellcode:
constructor TGeoForm.Create(AOwner: TComponent);
begin
FFuellfarbe:=clWhite;
FRandfarbe:=clBlack;
Top:=0;
Left:=0;
Width:=100;
Height:=50;
OnMouseDown := MyMouseDown;
OnMouseMove := MyMouseMove;
OnMouseUp := MyMouseUp ;
end;
Hier fehlt das inherited.
Das Control wird nicht korrekt erzeugt.
Stimmt ! Danke schonmal
Jetzt stürzt er schonmal nicht mehr ab beim Klicken des Button. Bloß wird die Ellipse dann nicht richtig gezeichnet.
Kann das sein, dass man auf die canvas anders zugreifen muss als in meiner paint methode ?
Delphi-Quellcode:
procedure toval.paint();
var vFuellfarbe,vRandfarbe : Tcolor;
begin
vFuellfarbe := self.Fuellfarbe;
vRandfarbe := self.Randfarbe;
Canvas.Brush.Color := vFuellfarbe;
Canvas.Pen.Color := vRandfarbe;
Canvas.Pen.Width := 3;
Canvas.Ellipse(x1,y1,x2,y2);
end;