بعض التحسينات على ضوابط دلفي

نعلم جميعًا أن العديد من عناصر التحكم في دلفي تحتوي على أشرطة تمرير، لكن أشرطة التمرير العائمة تحظى بشعبية كبيرة الآن. عناصر التحكم في دلفي لا تملك هذا المظهر. أصبحت مجموعة FloatStyle شائعة الآن. ولكن ماذا علي أن أفعل إذا لم يكن لدي مجموعة عناصر التحكم هذه وأردت الحصول على شريط تمرير عائم؟

استخدم وظيفة التهيئةFlatSB في وحدة commctrl

دعونا نلقي نظرة على مثال أدناه. إنه مثير للاهتمام للغاية.

الوحدة 1؛

واجهة

الاستخدامات

Windows، الرسائل، commctrl، SysUtils، Variants، Classes، Graphics، Controls، Forms،

مربعات الحوار، ستدكترلس؛

يكتب

TForm1 = الفئة (TForm)

Button1: TButton؛

مذكرة 1: مذكرة؛

الإجراء Button1Click(Sender: TObject);

خاص

{تصريحات خاصة}

عام

{التصريحات العامة}

نهاية؛

فار

Form1: TForm1؛

تطبيق

{$R *.dfm}

الإجراء TForm1.Button1Click(Sender: TObject);

يبدأ

تهيئةFlatSB(Memo1.Handle);

نهاية؛

نهاية.

إذا كنت تريد الإلغاء، فما عليك سوى الاتصال بـ UninitializeFlatSB.