Nous savons tous que de nombreux contrôles dans Delphi ont des barres de défilement, mais les barres de défilement flottantes sont désormais très populaires. Les contrôles de Delphi n'ont pas cette apparence. La suite FloatStyle est désormais populaire. Mais que dois-je faire si je ne dispose pas de cet ensemble de commandes et que je souhaite disposer d’une barre de défilement flottante ?
Utilisez la fonction InitializeFlatSB dans l'unité commctrl
Regardons un exemple ci-dessous. C’est très intéressant.
unité Unité1 ;
interface
utilise
Windows, messages, commctrl, SysUtils, variantes, classes, graphiques, contrôles, formulaires,
Boîtes de dialogue, StdCtrls ;
taper
TForm1 = classe(TForm)
Bouton1 : TButton ;
Mémo1 : TMémo ;
PProcédure Button1Click (Expéditeur : TObject );
privé
{Déclarations privées}
publique
{Déclarations publiques}
fin;
var
Formulaire1 : TForm1 ;
mise en œuvre
{$R *.dfm}
procédure TForm1.Button1Click(Expéditeur : TObject);
commencer
InitializeFlatSB(Memo1.Handle);
fin;
fin.
Si vous souhaitez annuler, appelez simplement UninitializeFlatSB.