Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by himitsu,
23. Mär 2011
{ Public declarations der Form }
ScrollActiv: Boolean;
ScrollOld: TPoint;
procedure Tfmain.StringGrid1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
ScrollActiv := Button = mbLeft; // oder if Button = mbLeft then ScrollActiv := True;
ScrollOld.X := X;
ScrollOld.Y := Y;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by himitsu,
23. Mär 2011
Du kannst jeweils eine Geste implementieren
> senkrechter Strich nach unten = eine Seite runterscrollen
> senkrechter Strich nach oben = eine Seite hochscrollen
> usw.
Aber so ein iPhone-mäßiges Scrollen wäre das nicht direkt
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by himitsu,
23. Mär 2011
Eine Geste wäre das nicht wirklich.
Also du willst praktisch, wenn man mit der Maus auf das Grid klickt und dabei den Mauszeiger verschiebt, daß sich das Grid mit verschiebt.
Tja, dann implementier das doch?
OnMouseMove und Co.