Todos sabemos que muitos controles no Delphi possuem barras de rolagem, mas as barras de rolagem flutuantes são muito populares atualmente. Os controles do Delphi não possuem esta aparência. O conjunto FloatStyle agora é popular. Mas o que devo fazer se não tiver esse conjunto de controles e quiser uma barra de rolagem flutuante?
Use a função InitializeFlatSB na unidade commctrl
Vejamos um exemplo abaixo.
unidade Unidade1;
interface
usa
Windows, Mensagens, commctrl, SysUtils, Variantes, Classes, Gráficos, Controles, Formulários,
Diálogos, StdCtrls;
tipo
TForm1 = classe(TForm)
Botão1: Botão T;
Memo1: TMemo;
Procedimento Button1Click(Remetente: TObject);
privado
{Declarações privadas}
público
{Declarações públicas}
fim;
var
Formulário1: TForm1;
implementação
{$R *.dfm}
procedimento TForm1.Button1Click(Remetente: TObject);
começar
InicializarFlatSB(Memo1.Handle);
fim;
fim.
Se quiser cancelar, basta ligar para UninitializeFlatSB.