OnFormCreate (Paintbox)

[netmario]

Guten Tag,

ich wollte, dass meine Paintbox beim starten weiß ist. Da es über die Eigenschaften nicht klappen wollte, habe ich mir folgenden Code zusammen gebastelt:

Code:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Paintbox1.canvas.brush.color:=clblack;
  Paintbox1.Canvas.FillRect(Rect(0,0,paintbox1.width,paintbox1.height));
end;

Wenn ich jetzt das Programm starte ist die Paintbox trotzdem nicht weiß. Das komische ist, wenn ich den selben Code bei einem OnButtonClick Event einfüge funktioniert es. Wo ist der Fehler?

Vielen Dank!