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

削除キー Link