Laufzeit- Zeichenkomponente gesucht

[Fussball-Robby]

Das Zeichnen selbst ist aber ganz einfach, das sind 2 Zeilen (Beispiel mit einem Image):

Delphi-Quellcode:

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  TImage(Sender).Canvas.MoveTo(X, Y);
    //Beim Klicken den "Stift" zur aktuellen Positioen bewegen
end;

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if ssLeft in Shift then
    //Wenn linke Maustaste gedrückt..
    TImage(Sender).Canvas.LineTo(X, Y);
      //..eine Linie zur neuen Position zeichnen
end;

du müsstet nur gegebenenfalls noch Farbe/Dicke verändern.

Mfg