掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
Gridの選択をそのままにスクロースさせるには？ (ID：14654)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
Gridのスクロールバーの位置設定がないので 直接設定をすると、バーだけ動いて中身がスクロールしません。 選択項目をそのままにして、スクロールさせるには どうすればいいのでしょうか？ procedure TFormMain1.DrawGrid1MouseWheelDown(Sender: TObject; Shift: TShiftState; MousePos: TPoint; var Handled: Boolean); var Handle : HWND; MinPos,MaxPos ,NewPos : Longint; fnBar : Longint; begin Handled := True; // Handled は，コントロールがイベントを処理したかどうかを示します。 Handle := DrawGrid1.Handle; if ssCtrl in Shift then fnBar := SB_HORZ else fnBar := SB_VERT; NewPos := GetScrollPos(Handle, fnBar); GetScrollRange(Handle, fnBar, MinPos, MaxPos); NewPos := Min(MaxPos, NewPos+5); SetScrollPos(Handle,fnBar,NewPos,True); end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.