Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by marabu,
18. Mai 2005
Mein Beispiel kannst du etwa so an deine Bedürfnisse anpassen:
procedure TMainForm.FormMouseWheelDown(Sender: TObject; Shift: TShiftState;
MousePos: TPoint; var Handled: Boolean);
var
sbr: TRect;
begin
with Scrollbox do begin
sbr.TopLeft := ClientToParent(ClientRect.TopLeft);
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by marabu,
18. Mai 2005
Das funktioniert nur solange du keinen weiteren Scrollbar (Listbox, Memo, ...) auf deiner Form hast. Sauberer ist es, wenn du die Rahmendicke im Rect berücksichtigst.
marabu
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by marabu,
17. Mai 2005
Funktioniert virtual scrolling mit irgendeiner Anwendung?
Hast du den Treiber für das Touchpad schon aktualisiert?
marabu
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by marabu,
17. Mai 2005
Wenn dein mouse wheel rechts und unten nicht erkannt wird, dann liegt das daran, dass du den Rahmen der Scrollbox nicht berücksichtigst. Überprüfen kannst du das, indem du BorderStyle zum Test auf bsNone setzt. Korrigier einfach das Rect, welches du für die Funktion ptInRect() übergibst.
marabu