Canvas: Richtig zeichnen

[delphicoder123]

Zu deinen geposteten Links hätte ich noch ein paar Fragen.

1) Warum brauche ich eine Bitmap und eine Paintbox? Warum reicht z.B eine Bitmap oder nur eine Paintbox nicht aus?
2) Wenn ich das Formular so klein, wie möglich mache, verschwindet das Rechteck. Wie kann ich das verhindern?
Habe überlegt, dass ich bei FormResize einfach die Repaint Methode aufrufe. Das hat aber auch nichts gebracht.
Repaint wird doch, dann aufgerufen, wenn sich etwas am Formular verändert?
3) Wird bei PaintBox1.Repaint; einfach nur die Ereignisprozedur procedure TForm1.PaintBox1Paint(Sender: TObject); aufgerufen?
4) Ich habe nach einer Beschreibung der BitBlt Prozedur gesucht aber nur die Hilfe zu C++ gefunden, die ich auch nicht ganz verstehe.
https://docs.microsoft.com/en-us/win...-wingdi-bitblt
Was macht diese Prozedur bzw. wozu benötige ich diese?

Delphi-Quellcode:

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls;

type
  TForm1 = class(TForm)
    PaintBox1: TPaintBox;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure PaintBox1Paint(Sender: TObject);
    procedure FormResize(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  bmp: TBitmap;
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  bmp := TBitmap.Create;
  bmp.Canvas.Brush.Color := clred;
  bmp.Canvas.Pen.Width := 3;
  bmp.Width := Paintbox1.Width;
  bmp.Height := Paintbox1.Height;
  bmp.Canvas.Rectangle(5,5, 75, 75);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  bmp.Free;
end;

procedure TForm1.FormResize(Sender: TObject);
begin
  bmp.Width := Paintbox1.Width;
  bmp.Height := Paintbox1.Height;
  PaintBox1.Repaint;
end;

procedure TForm1.PaintBox1Paint(Sender: TObject);
begin
  BitBlt(PaintBox1.Canvas.Handle, 0, 0, bmp.Width, bmp.Height, bmp.Canvas.Handle,
    0, 0, SrcCopy);
end;

end.