1:

PaintBox.Canvas.Pixels[x,y] := clBlack					

1:
2:
3:
4:
5:

var aPoint : TPoint;
begin
  GetCursorPos(aPoint);// >> Bildschirmkoordinaten
  aPoint := PaintBox.ScreenToClient(aPoint);// >> Koordinaten in PaintBox
  PaintBox.Canvas.Pixels[aPoint.x,aPoint.y] := clBlack;					

1:

with PB_Oberflaeche.Canvas do FillRect(ClipRect);					

1:
2:
3:
4:

procedure TF_1.FormCreate(Sender: TObject);
begin
with PB_Oberflaeche.Canvas do FillRect(ClipRect);
end;					

1:
2:
3:
4:
5:
6:
7:
8:

procedure TF_1.FormCreate(Sender: TObject);  
begin  
  with PB_Oberflaeche.Canvas do
  begin
    Brush.Color := clWhite;
    FillRect(ClipRect); 
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

var
Hintergrund : TBitmap;
begin
   //Bitmap erzeugen
  Hintergrund := TBitmap.Create;
   //Hintergrundfarbe
  Hintergrund.Canvas.Brush.Color := clWhite;
   //Größe festlegen
  Hintergrund.Width  := PB_Oberflaeche.Width;
  Hintergrund.Height := PB_Oberflaeche.Height;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

procedure TF_1.FormCreate(Sender: TObject);
var
Hintergrund : TBitmap;
begin
  Hintergrund := TBitmap.Create; //Bitmap erzeugen
  Hintergrund.Canvas.Brush.Color := clWhite; //Farbe des Pinsels festlegen
  Hintergrund.Canvas.Pen.Color := clWhite;   //Farbe des Stifts festlegen
  Hintergrund.Width  := PB_Oberflaeche.Width; //Breite der Bitmap festlegen
  Hintergrund.Height := PB_Oberflaeche.Height;//Höhe festlegen
  Hintergrund.Canvas.Rectangle(0,0,Hintergrund.Width,Hintergrund.Height);//Rechteck in die Bitmap zeichnen, das eigentlich weiß sein sollte und die komplette Bitmap abdecken sollte
  PB_Oberflaeche.Canvas.Draw(0,0,Hintergrund);//Die weiße Bitmap wird auf die Paintbox gemalt
end;					

1:
2:
3:
4:
5:
6:

var
PBRechteck : TRect;
begin
PB_Oberflaeche.Canvas.Brush.Color := clWhite;
PBRechteck := Rect(PB_Oberflaeche.Left,PB_Oberflaeche.Top,PB_Oberflaeche.Left+PB_Oberflaeche.Width,PB_Oberflaeche.Top+PB_Oberflaeche.Height);
PB_Oberflaeche.Canvas.FillRect(PBRechteck);					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:

unit U_Test;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;

type
  TF_1 = class(TForm)
    PB_Oberflaeche: TPaintBox;
    procedure FormCreate(Sender: TObject);
    procedure PB_OberflaechePaint(Sender: TObject);
    procedure PB_OberflaecheClick(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
    Hintergrund : TBitmap;
    end;

var
  F_1: TF_1;

implementation

{$R *.dfm}

procedure TF_1.FormCreate(Sender: TObject);
begin
    Hintergrund := TBitmap.Create; //Bitmap erzeugen
    Hintergrund.Canvas.Brush.Color := clWhite; //Farbe des Pinsels festlegen
    Hintergrund.Canvas.Pen.Color := clWhite;   //Farbe des Stifts festlegen
    Hintergrund.Width  := PB_Oberflaeche.Width; //Breite der Bitmap festlegen
    Hintergrund.Height := PB_Oberflaeche.Height;//Höhe festlegen
    Hintergrund.Canvas.Rectangle(0,0,Hintergrund.Width,Hintergrund.Height);//Rechteck in die Bitmap zeichnen, das eigentlich weiß sein sollte und die komplette Bitmap abdecken sollte
end;

procedure TF_1.PB_OberflaechePaint(Sender: TObject);
begin
PB_Oberflaeche.Canvas.Draw(0,0,Hintergrund);//Die weiße Bitmap wird auf die Paintbox gemalt
end;

procedure TF_1.PB_OberflaecheClick(Sender: TObject);
var
aPoint : TPoint;
begin
GetCursorPos(aPoint);
aPoint := PB_Oberflaeche.ScreenToClient(aPoint);
Hintergrund.Canvas.Pixels[aPoint.x,aPoint.y] := clBlack;
PB_Oberflaeche.Repaint;
end;


end.