Ok Ok, ich hab mich überreden lassen und es doch mal mit einem Timer versucht.
Sobald ich auf den Button klicke und die Maustaste gedrückt halte wird der Timer aktiviert
und alle 100ms wird ein Zähler erhöht, lasse ich die Taste los so wird der Timer deaktiviert.
Dies ist jetzt nur der Test, ich muß das ganze noch so umbauen das ich Items rauf bzw. runter
verschieben kann, aber das sollte ich noch hinbekommen
Delphi-Quellcode:
procedure TfrmMain.Button1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
TimerMoveItems.Enabled := True;
end;
procedure TfrmMain.Button1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
TimerMoveItems.Enabled := False;
end;
procedure TfrmMain.TimerMoveItemsTimer(Sender: TObject);
begin
Inc(Blupp);
Label1.Caption := IntToStr(Blupp);
end;
Geht doch einfachher als ich zu Anfang gedacht habe, vielen dank für die Tipps und Anregungen.