[SOLVED] Manually adding user generated Controls

[Nitorami]

I am trying to add a paintbox to Form1 per Menu Click but it does not work. Nothing shows up, and I am feeling really stupid here.

Code: Pascal  [Select][+][-]

1. procedure TForm1.MenuItem1Click(Sender: TObject);
2. begin
3.    try
4.      TestBox := TPaintbox.Create(Self);
5.      TestBox.Parent:=self;
6.      Label1.Caption := 'TestBox generated...'
7.      with TestBox do begin
8.        Left := 10; Top  := 10;  Width := 50; Height := 50;
9.        Canvas.Brush.Style := bsSolid;
10.        Canvas.Brush.Color := clblue;
11.        Canvas.Rectangle(5,5,8,8);
12.        Canvas.FillRect(0,0,10,10);
13.      end;
14.    finally
15.    end;
16. end;    

[bytebites]

Code: Pascal  [Select][+][-]

1. procedure TForm1.Button1Click(Sender: TObject);
2. begin
3.      try
4.      TestBox := TPaintbox.Create(Self);
5.      TestBox.Parent:=self;
6.      Label1.Caption := 'TestBox generated...';
7.      with TestBox do begin
8.        Left := 10; Top  := 10;  Width := 50; Height := 50;
9.        OnPaint:=PaintBox1paint;
10.      end;
11.    finally
12.    end;
13. end;
14.  
15. procedure TForm1.PaintBox1Paint(Sender: TObject);
16. begin
17.    Canvas.Brush.Style := bsSolid;
18.    Canvas.Brush.Color := clblue;
19.    Canvas.Rectangle(5,5,8,8);
20.    Canvas.FillRect(0,0,10,10);
21. end;
22.    

[Nitorami]

Ah, I see, I need to specify an OnPaint Event. Thank you.

Edit: Wait. The PaintBox1Paint executes, but I still cannot see anything.

Aha, it should say

Code: Pascal  [Select][+][-]

1. procedure TForm1.PaintBox1Paint(Sender: TObject);
2. begin
3.   with TPaintBox(Sender) do begin
4.    Canvas.Brush.Style := bsSolid;
5.    Canvas.Brush.Color := clblue;
6.    Canvas.Rectangle(5,5,8,8);
7.    Canvas.FillRect(0,0,10,10);
8. end;
9. end;