掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
フォームのスクロールバーの表示変更 (ID：10028)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
フラットなスクロールバーにするサンプルです uses CommCtrl; procedure TForm1.FormCreate(Sender: TObject); var XVerScrollInfo, XHorScrollInfo: TScrollInfo; begin InitializeFlatSB(RichEdit1.Handle); GetScrollInfo(RichEdit1.Handle, SB_VERT, XVerScrollInfo); GetScrollInfo(RichEdit1.Handle, SB_HORZ, XHorScrollInfo); FlatSB_SetScrollProp(RichEdit1.Handle, WSB_PROP_VSTYLE, FSB_ENCARTA_MODE, True); FlatSB_SetScrollProp(RichEdit1.Handle, WSB_PROP_HSTYLE, FSB_ENCARTA_MODE, True); end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.