Einfach und schnell - kann ja noch ausgebaut werden.
Hab hier mal nicht abgefragt, welche Taste gedrückt wird ...
Über Button (TMouseButton) und Shift (TShiftState) kannst du abfragen, welche Maustaste(n) und welche Kontroltaste(n) gedrückt/nicht gedrückt sind. (siehe
OH)
Delphi-Quellcode:
Var Maustastegedrueckt: Boolean;
{OnCreate}
Procedure TForm1.FormCreate(Sender: TObject);
Begin
Maustastegedrueckt := False;
End;
{OnMouseDown - Maustaste wird gedrückt}
Procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
Begin
Maustastegedrueckt := True;
End;
{OnMouseMove - Maus wird bewegt}
Procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
Begin
If Maustastegedrueckt Then Begin
{Form1.}Canvas.Pixels[X, Y] := clBlack;
End;
End;
{OnMouseUP - Maustaste wird losgelassen}
Procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
Begin
Maustastegedrueckt := False;
End;