우리 모두는 Delphi의 많은 컨트롤에 스크롤 막대가 있다는 것을 알고 있지만 현재는 플로팅 스크롤 막대가 매우 인기가 있습니다. Delphi의 컨트롤에는 이러한 모양이 없습니다. 이제 FloatStyle 제품군이 인기를 얻고 있습니다. 하지만 이 컨트롤 세트가 없고 부동 스크롤 막대를 갖고 싶다면 어떻게 해야 합니까?
commctrl 단위에서 초기화FlatSB 기능을 사용하십시오.
아래의 예를 살펴보겠습니다. 매우 흥미롭습니다.
단위 Unit1;
인터페이스
용도
Windows, 메시지, commctrl, SysUtils, 변형, 클래스, 그래픽, 컨트롤, 양식,
대화 상자, StdCtrls;
유형
TForm1 = 클래스(TForm)
버튼1: T버튼;
메모1: TMemo;
PROcedure Button1Click(Sender: TObject);
사적인
{비공개 선언}
공공의
{공개 선언}
끝;
var
Form1: TForm1;
구현
{$R *.dfm}
절차 TForm1.Button1Click(Sender: TObject);
시작하다
초기화FlatSB(Memo1.Handle);
끝;
끝.
취소하려면 UninitializeFlatSB를 호출하세요.