Paintbox

[Privateer3000]

Hoi Leuts,
Ich möchte etwas in eine Paintbox malen.
Nur wird das ganze im Form und nicht in der Paintbox gezeichnet.
Was ist falsch?:

Code:

procedure TForm2.PaintBox1Paint(Sender: TObject);
var
anfang: TPoint;
begin
anfang:=Point(paintbox1.Width , paintbox1.Height ); 
with PaintBox1.Canvas do  
begin
Canvas.Pen.Color:=clYellow;
Canvas.MoveTo(anfang.x,anfang.y);
Canvas.LineTo(anfang.x +20,anfang.y+20);
Canvas.MoveTo(anfang.x -20,anfang.y-20);
Canvas.LineTo(anfang.x +20,anfang.y+20);
end;
end;

[Christian Seehase]

Moin Privateer,

Du schreibst:

with PaintBox1.Canvas do und fängst dann die eigentlichen Zeilen mit Canvas an.

Dadurch beziehst Du Dich aber auf den Canvas des Formulares, denn ein Paintbox1.Canvas.Canvas gibt's ja nicht.

[Privateer3000]

AAAAAAAAAAAAHHHHHHHHHHH