Delphi Prob (WICHTIG)

[Matze]

Ach, nochwas. Das mit Mausgedrückt ist schon umständlich, machso doch so:

Delphi-Quellcode:

procedure TForm1.FormMouseMove (Sender: TObject; Shift: TShiftState; 
X,Y: Integer); 
begin 
  if ssleft in shift then
  begin
    Canvas.LineTo(X,Y);
    Canvas.MoveTo(X,Y); 
  end;
end;

Nachtrag: Noch herzlich willkommen in der DP!