Wir alle wissen, dass viele Steuerelemente in Delphi über Bildlaufleisten verfügen, aber schwebende Bildlaufleisten erfreuen sich mittlerweile großer Beliebtheit. Die Steuerelemente von Delphi haben dieses Aussehen nicht. Die FloatStyle-Suite erfreut sich mittlerweile großer Beliebtheit. Aber was soll ich tun, wenn ich diese Steuerelemente nicht habe und eine schwebende Bildlaufleiste haben möchte?
Verwenden Sie die Funktion InitializeFlatSB in der Commctrl-Einheit
Schauen wir uns unten ein Beispiel an. Es ist sehr interessant.
Einheit Einheit1;
Schnittstelle
verwendet
Windows, Nachrichten, Commctrl, SysUtils, Varianten, Klassen, Grafiken, Steuerelemente, Formulare,
Dialoge, StdCtrls;
Typ
TForm1 = Klasse(TForm)
Button1: TButton;
Memo1: TMemo;
PROcedure Button1Click(Sender: TObject);
Privat
{Private Erklärungen}
öffentlich
{Öffentliche Erklärungen}
Ende;
var
Form1: TForm1;
Durchführung
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
beginnen
InitializeFlatSB(Memo1.Handle);
Ende;
Ende.
Wenn Sie abbrechen möchten, rufen Sie einfach UninitializeFlatSB auf.