Fehler in Form.OnMouseWheel (2x und mit wechselndem Shift)

[ralfiii]

Hallo!

Ich vermute mal schwer hier sitzt in Delphi (überprüft in 2007 und 2010) der Wurm drin.
Man erzeuge ein Formular, setzte ein Memo drauf und dann folgenden Code in OnMouseWheel:

Delphi-Quellcode:

procedure TForm1.FormMouseWheel(Sender: TObject; Shift: TShiftState; WheelDelta: Integer;
  MousePos: TPoint; var Handled: Boolean);
begin
     Memo1.Lines.Add(IntToHex(Word(Shift), 4));

     if Shift=[ssCtrl] then
        Memo1.Lines.Add('Ctrl')
     else
     if Shift=[ssShift] then
        Memo1.Lines.Add('Shift');
end;

Wenn man nun die CTRL-Taste niederhält und die Maus rollt, dann wird OnMouseWheel zweimal aufgerufen (das ist ja schon seltsam), davon der erste mal korrekter weise mit ssCtrl, das zweite mal mit ssShift (?!??!?).

Any ideas was das soll?
Man kann zwar handled auf True setzen, dann kommt der zweite Aufruf nicht, aber dann funktioniert unter Umständen das scrollen in irgendwelchen Controls nicht mehr automatisch.

(in http://www.delphipraxis.net/59789-on...ufgerufen.html wurde der Doppelaufruf schon erwähnt, aber das mit dem wechselnden ShiftState war damals kein Thema)

[Bummi]

Handled := true;

[ralfiii]

Zitat:

Zitat von Bummi (Beitrag 1172475)

Handled := true;

Hab ich ja geschrieben (siehe vorletzte Zeile vom vorigen Posting): wenn man das macht, kommt zwar der zweite Call nicht mehr, Controls die den Scroll-Event gerne hätten können dann nicht mehr mit Mausrad gesteuert werden.

Und: Das ist nur ein Workaround und keine Erklärung für das Verhalten. Kann man also sagen dass das ein Fehler in Delphi ist?

[ralfiii]

Ich hab's mal reported:

http://qc.embarcadero.com/wc/qcmain.aspx?d=106683

[Bummi]

Deine vorletzte Zeile hatte ich übersehen ...

wenn man sich TCustomForm.MouseWheelHandler anschaut und dann dafür sorgt dass kein fokusierbares Element auf dem Form ist
ist die Ausgabe wie gewünscht.
Ich weiß zwar noch nicht wie, aber FFocusedControl.Perform(... scheint zu dem Problem zu führen.