Kita semua tahu bahwa banyak kontrol di Delphi yang memiliki bilah gulir, tetapi bilah gulir mengambang sangat populer saat ini. Kontrol Delphi tidak memiliki tampilan seperti ini. Suite FloatStyle sekarang populer. Namun apa yang harus saya lakukan jika saya tidak memiliki rangkaian kontrol ini dan ingin memiliki bilah gulir mengambang?
Gunakan fungsi InitializeFlatSB di unit commctrl
Mari kita lihat contoh di bawah ini.
satuan Unit1;
antarmuka
kegunaan
Windows, Pesan, commctrl, SysUtils, Varian, Kelas, Grafik, Kontrol, Formulir,
Dialog, StdCtrls;
jenis
TForm1 = kelas(TForm)
Tombol1: Tombol T;
Memo1: TMemo;
Tombol Prosedur1Klik(Pengirim: TObject);
pribadi
{Deklarasi pribadi}
publik
{Pernyataan publik}
akhir;
var
Formulir1: TForm1;
pelaksanaan
{$R *.dfm}
prosedur TForm1.Button1Click(Pengirim: TObject);
mulai
InisialisasiFlatSB(Memo1.Handle);
akhir;
akhir.
Jika ingin membatalkan, panggil saja UninitializeFlatSB.