Todos sabemos que muchos controles en Delphi tienen barras de desplazamiento, pero las barras de desplazamiento flotantes son muy populares ahora. Los controles de Delphi no tienen esta apariencia. La suite FloatStyle ahora es popular. Pero, ¿qué debo hacer si no tengo este conjunto de controles y quiero tener una barra de desplazamiento flotante?
Utilice la función InitializeFlatSB en la unidad commctrl
Veamos un ejemplo a continuación. Es muy interesante.
unidad Unidad1;
interfaz
usos
Windows, Mensajes, commctrl, SysUtils, Variantes, Clases, Gráficos, Controles, Formularios,
Diálogos, StdCtrls;
tipo
TForm1 = clase(TForm)
Botón1: TBotón;
Memo1: TMemo;
Botón de procedimiento 1 clic (Remitente: TObject);
privado
{Declaraciones privadas}
público
{Declaraciones públicas}
fin;
var
Formulario1: TForm1;
implementación
{$R*.dfm}
procedimiento TForm1.Button1Click (Remitente: TObject);
comenzar
InicializarFlatSB(Memo1.Handle);
fin;
fin.
Si desea cancelar, simplemente llame a UninitializeFlatSB.