بعض التحسينات على عناصر تحكم دلفي (2)

كيفية الرسم على عنصر التحكم بدون قماش؟ على سبيل المثال، لا تتمتع لوحة Tpanel بخصائص اللوحة القماشية، لذلك يصعب الكتابة عليها أو الرسم عليها. هل ترغب في إعادة تعبئتها بنفسك؟ من فضلك أزعجني! كيف يمكننا التعامل معها بسهولة؟

نلقي نظرة على هذا الرمز

الوحدة 1؛

واجهة

الاستخدامات

النوافذ، الرسائل، SysUtils، المتغيرات، الفئات، الرسومات، عناصر التحكم، النماذج،

مربعات الحوار، StdCtrls، ExtCtrls؛

يكتب

TForm1 = الفئة (TForm)

اللوحة 1: لوحة T؛

Button1: TButton؛

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

خاص

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

عام

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

نهاية؛

فار

Form1: TForm1؛

تطبيق

{$R *.dfm}

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

فار

PanelCanvas: TCanvas؛

يبدأ

PanelCanvas := TControlCanvas.Create;

TControlCanvas(PanelCanvas).Control := Panel1;

PanelCanvas.Brush.Style := bsClear;

PanelCanvas.Pen.Color := clBlue;

PanelCanvas.Rectangle(2, 2, Panel1.Width - 2, Panel1.Height - 2);

PanelCanvas.Font.Name:='楷体_GB2312';

PanelCanvas.Font.Size:=24;

PanelCanvas.TextOut(Panel1.Width div 2,Panel1.Height div 2,'OK');

PanelCanvas.Free;

نهاية؛

نهاية.

يمكن القيام بذلك عند التقديم بكميات صغيرة. بالطبع، إذا كنت تريد تطبيقه على عنصر تحكم بدون لوحة قماشية، فسيكون من الملائم أكثر استخدام الطريقة المذكورة أعلاه لالتفاف عنصر التحكم الأصلي وتطوير عنصر تحكم جديد.