名前
題名
▼ Saraさん > ▼ たてぐやさん　こんばんは > 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で使えるかは不明(--;
GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.
600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示).
(上限122000(120k)バイト)

削除キー Link