TPaintBox Problem

[Muetze1]

Moin!

Vielleicht klappt es in der FormCreate so:

Code:

procedure TForm1.FormCreate(Sender: TObject);
begin
  PaintBox1.Canvas.Brush.Color := clblack;
  PaintBox1.Width := ClientWidth ;
  PaintBox1.Height := ClientHeight ;
end;

Weil die Form1 Instanzenvariable innerhalb der Klasse zu verwenden ist gefährlich und kein einzigen Sinn/Nutzen...

MfG
Muetze1