|
▼ たてぐやさん こんばんは
横レスです。
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 TMemo then begin
if WheelDelta > 0 then begin
cmpFind.Perform(EM_SCROLL,SB_LINEUP,0);
end else begin
CmpFind.Perform(EM_SCROLL,SB_LINEDOWN,0);
end;
end;
if cmpFind is TListView 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で使えるかは不明(^^;
|