掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
Gridの選択をそのままにスクロースさせるには？ (ID：14655)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
自分で、解決しちゃいました procedure TFormMain1.DrawGrid1MouseWheelDown(Sender: TObject; Shift: TShiftState; MousePos: TPoint; var Handled: Boolean); var NewPos : Longint; begin Handled := True; // Handled は，コントロールがイベントを処理したかどうかを示します。 if Not(ssCtrl in Shift) then with DrawGrid1 do begin NewPos := Max(FixedRows,RowCount-VisibleRowCount); NewPos := Min(TopRow+5, NewPos); if TopRow <> NewPos then TopRow := NewPos; end; if ssCtrl in Shift then with DrawGrid1 do begin NewPos := Max(FixedCols,ColCount-VisibleColCount); NewPos := Min(LeftCol+5, NewPos); if LeftCol <> NewPos then LeftCol := NewPos; end; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.