Du könntest dir eine Variable anlegen, in der du dir merkst, ob die Maustaste gedrückt ist, und dann zeichnest du im MouseMove nur, wenn die Maustaste auch wirklich gedrückt ist.
Etwa so:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
| procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if Button = mbLeft then
ButtonPressed := true;
end;
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if ButtonPressed then begin
end;
end;
procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if Button = mbLeft then
ButtonPressed := false;
end; |
Code nicht getestet!!!
Edit: Ok, war ich mal wieder zu langsam... Na dafür hast du jetzt auch noch ein Codebeispiel
