Vielen Dank für eure Hilfe.
Ich hab es jetzt so gelöst:
Delphi-Quellcode:
procedure TForm1.Image1Click(Sender: TObject);
begin
Image1.canvas.Pixels[xPos,yPos]:= clBlack
end;
procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
xPos := X;
yPos := Y;
end;
end.
Ich kann nun auch einzelne Punkte setzen, super wäre aber wenn man auch durch gedrückt halten gleich ganze Linien zeichnen könnte.
Ist das auch möglich?