Hallo,
ich wollte in meiner Anwendung die Verhaltensweise implementieren, dass das WinControl gescrollt wird, welches sich unter dem Mauszeiger befindet, nicht das, welches den Focus hat.
Dazu habe ich folgenden Code für TApplicationEvents.OnMessage() gefunden:
Delphi-Quellcode:
procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean);
var
mousePos: TPoint;
wc: TWinControl;
begin
if Msg.message = WM_MOUSEWHEEL then
begin
mousePos.X := Word(Msg.lParam);
mousePos.Y := HiWord(Msg.lParam);
wc := FindVCLWindow(mousePos);
if wc = nil then
begin
Handled := True;
end
else if wc.Handle <> Msg.hwnd then
begin
SendMessage(wc.Handle, WM_MOUSEWHEEL, Msg.wParam, Msg.lParam);
Handled := True;
end;
end;
end;
Dies funktioniert soweit recht ordentlich (z.B. bei TMemo, TListBox, usw.), nur leider nicht bei allen Komponenten. Wenn ich z.B. eine TStringGrid auf das Formular ziehe wird das Grid nicht gescrollt, auch wenn es unter dem Mauszeiger ist. Genauso wird kein anderes WinControl gescrollt, welches unter dem Mauszeiger liegt, wenn das TStringGrid den Fokus hat.
Dies passiert auch mit anderen Komponenten (z.B. einige Komponten von DevExpress)!
Gibt es eine Möglichkeit, die Komponenten wie z.B. TStringGrid dazu zu bringen, dass diese auch auf MouseWheel wie alle anderen reagieren?
... oder habe ich hier irgendwas übersehen?
Ich hoffe ich konnte mich einigermaßen verständlich ausdrücken.
Danke schon mal!