|
▼ たてぐやさん こんばんは
procedure TForm2.FormMouseWheel(Sender: TObject; Shift: TShiftState;
WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
var
APos : TPoint;
cmpFind : TWinControl;
begin
GetCursorPos(APos);
cmpFind := FindVCLWindow(APos);
if (cmpFind is TListView) or (cmpFind is TMemo) then begin
if WheelDelta > 0 then begin
cmpFind.Perform(WM_VSCROLL, SB_LINEUP,0);
end else begin
cmpFind.Perform(WM_VSCROLL, SB_LINEDOWN,0);
end;
end;
Handled := true;
end;
だけでもできますね・・・(^^; あいかわらず、Delphi6で使えるかは不明(--;
|