掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
DBGRIDの縦スクロールバーが消える (ID：30332)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
Delphi5のときで、垂直スクロールバーが表示しないことがあったときは、 以下のように感じで対応した記憶があります。 procedure TForm1.DataSource1DataChange(Sender: TObject; Field: TField); var siv: TScrollInfo; hWnd: THandle; begin hWnd := DBGrid1.Handle; // SB_VERT 情報取得 siv.cbSize := sizeof(siv); siv.fMask := SIF_ALL; GetScrollInfo(hWnd, SB_VERT, siv); if (siv.nMin = 0) and (siv.nMax = 100) and (siv.nPage = 0) and (siv.nPos = 0) then begin // SB_VERT 情報更新 with siv do begin nMin := 0; nMax := 0; nPage := 1; nPos := 0; end; SetScrollInfo(hWnd, SB_VERT, siv, True); end; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.