Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by bernie110,
18. Mai 2005
Hallo marabu,
Leider stimmt das insofern nicht, als
a) es sich nicht nur um den Rand der Scrollbox handelt (Deinen Tipp mit "BorderStyle zum Test auf bsNone setzen" habe ich ausprobiert --> brachte keine Verbesserung);
b) innerhalb der Scrollbox das Scrollrad vollständig erkannt wird;
c) meine Scrollbox nur ca. 4/5 der Breite und 2/3 der Höhe des Formulars einnimmt.
Beispielsweise:
...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by bernie110,
18. Mai 2005
Hallo marabu,
in Deinem Beispiel stand u.a.
procedure TMainForm.FormMouseWheelDown(Sender: TObject; Shift: TShiftState;
MousePos: TPoint; var Handled: Boolean);
begin
if PtInRect(ScrollBox.ClientRect, ScreenToClient(MousePos)) then
ScrollBoxMouseWheelDown(Sender, Shift, MousePos, Handled);
end;
procedure TMainForm.FormMouseWheelUp(Sender: TObject; Shift: TShiftState;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by bernie110,
17. Mai 2005
Danke, marabu, das funzt schon ganz gut.
Nur wird das Scrollrad am rechten und am unteren Rand des Form nicht erkannt, das heißt: ist der Mauszeiger in einem bestimmten Bereich rechts bzw. unten, so läßt sich die Paintbox nicht per Scrollrad bewegen. Läßt sich da noch etwas verbessern?
Außerdem, weiss jemand zum 2. Punkt meiner Anfrage ' "virtueller Bildlauf" des Touchpads' eine Lösung?
...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by bernie110,
12. Mai 2005
Hallo,
ich habe eine Scrollbox mit einer unterlagerten Paintbox programmiert. Nun soll auch mit dem Scrollrad an der Maus vertikal gescrollt werden.
1. Frage:
Wenn der Focus auf einer Listbox steht, so wird die Listbox durchgescrollt (häßlich!) und nicht die Scrollbox. Wie kann ich das hinbekommen, dass immer die Scrollbox das OnMouseWheel-Ereignis erhält, egal wo der Focus gerade ist?
...
