Delphi の多くのコントロールにスクロール バーがあることは誰もが知っていますが、フローティング スクロール バーは現在非常に人気があります。 Delphi のコントロールにはこのような外観はありません。 FloatStyle スイートは現在人気があります。しかし、このコントロール セットがなく、フローティング スクロール バーが必要な場合はどうすればよいでしょうか?
commctrl ユニットの InitializeFlatSB 関数を使用する
以下に例を見てみましょう。とても興味深いです。
ユニットユニット1;
インタフェース
用途
Windows、メッセージ、commctrl、SysUtils、バリアント、クラス、グラフィックス、コントロール、フォーム、
ダイアログ、StdCtrls;
タイプ
TForm1 = クラス(TForm)
ボタン 1: T ボタン;
メモ1: Tメモ;
手順 Button1Click(送信者: TObject);
プライベート
{プライベート宣言}
公共
{公的宣言}
終わり;
変数
フォーム1: TForm1;
実装
{$R *.dfm}
プロシージャ TForm1.Button1Click(送信者: TObject);
始める
InitializeFlatSB(Memo1.Handle);
終わり;
終わり。
キャンセルしたい場合は、UninitializeFlatSB を呼び出してください。