對Delphi控制元件的一點改良 (轉)

對Delphi控制元件的一點改良 (轉)[@more@]

我們都知道的很多有捲軸，可現在很流行浮動式捲軸。Delphi的控制元件並不具備這樣的外觀。現在流行FloatStyle套件。可是當我不具備該套又想擁有浮動式捲軸的控制元件該怎麼辦呢？

用commctrl單元中的InitializeFlatSB

下面看個例子很好玩的

unit Unit1;

interface

uses
  , Messages, commctrl, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
  Button1: TButton;
  Memo1: TMemo;
  procedure Button1Click(Sender: T);
  private
  { Private declarations }
  public
  { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
InitializeFlatSB(Memo1.Handle);
end;

end.

想取消就UninitializeFlatSB好了。