Hallo,
ich habe folgenden Code (gekürzt) im Formular
Code
procedure TFormMain.FormMouseWheel(Sender: TObject; Shift: TShiftState;
WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
Var
scr: TScrollBox;
begin
scr := nil;
If (WindowFromPoint(MousePos) = PanelSeite1.Handle) and
(TabControl1.ActivePageIndex = 0) Then
scr := ScrollBox1
else If (WindowFromPoint(MousePos) = PanelSeite2.Handle) and
(TabControl1.ActivePageIndex = 1) Then
scr := ScrollBox2
else If (WindowFromPoint(MousePos) = WPRichTextArbeit.Handle) and
(TabControl1.ActivePageIndex = 2) Then
scr := ScrollBox3
....
Alles anzeigen
Beim Mausrad scrollen nach oben kommt sofort die Zuweisung scr := ScrollBox3, beim Scrollen nach unten nie oder nach sehr langen Versuchen und dann nur teilweise.
Bei anderen Panels in Scrollboxen tritt das Problem nicht auf.
Woran kann das liegen dass die Events über dem WPRichText nicht oder unzuverlässig gefeuert werden?
Ich habe in einer Scrollbox ein Panel und auf dem liegt das WPRichText und andere Komponenten, die gemeinsam gescrollt werden sollen.
Das Panel und das WPRichText sind so groß dass innerhalb des WPRichtext nicht gescrollt werden muss, es passt dort die gesamte anzuzeigende Seite rein.
Ciao
Stefan