تنفيذ شكل من أي شكل في دلفي

نص النموذج:

كائن Form1: TForm1

اليسار = 192

الأعلى = 107

BorderStyle = bsNone

تسمية توضيحية = 'Form1'

ارتفاع العميل = 348

عرض العميل = 536

اللون = clBtnFace

Font.Charset = DEFAULT_CHARSET

Font.Color = clWindowText

ارتفاع الخط = -11

اسم الخط = 'MS Sans Serif'

نمط الخط = []

OldCreateOrder = خطأ

OnCreate = Button1Click

بكسل لكل بوصة = 96

ارتفاع النص = 13

كائن Button1: TButton

اليسار = 392

الأعلى = 152

العرض = 75

الارتفاع = 25

تسمية توضيحية = 'Button1'

ترتيب الجدول = 0

عند النقر = Button1Click

نهاية

كائن Button2: TButton

اليسار = 432

الأعلى = 24

العرض = 17

الارتفاع = 17

تسمية توضيحية = 'Button2'

ترتيب الجدول = 1

OnClick = Button2Click

نهاية

كائن Button3: TButton

اليسار = 448

الأعلى = 40

العرض = 17

الارتفاع = 17

تسمية توضيحية = 'Button2'

ترتيب الجدول = 2

OnClick = Button3Click

نهاية

الكائن Button4: TButton

اليسار = 464

الأعلى = 56

العرض = 17

الارتفاع = 17

تسمية توضيحية = 'Button2'

ترتيب الجدول = 3

OnClick = Button4Click

نهاية

نهاية

اسم المنتج:

TForm1 = الفئة (TForm)

Button1: TButton؛

Button2: TButton؛

Button3: TButton؛

Button4: TButton؛

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

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

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

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

خاص

الإجراء WMmove(var الرسالة: TWMNCHITTEST); رسالة WM_NCHITTEST؛

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

عام

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

نهاية؛

فار

Form1: TForm1؛

تطبيق

{$R *.DFM}

الإجراء TForm1.WMmove(var الرسالة: TWMNCHITTEST);

يبدأ

الرسالة. النتيجة := HTCAPTION;

نهاية؛

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

فار

R1، R2، R3، R4، R5: HRGN؛

يبدأ

R1 := CreateEllipticRgn(0,0,Round(ClientWidth / 2),ClientHeight);

R2 := CreateEllipticRgn(Round(ClientWidth / 2),0,ClientWidth,ClientHeight);

R3 := CreateEllipticRgn(Round(ClientWidth / 4 ),Round(ClientHeight / 4 *3),Round(ClientWidth / 4 *3),ClientHeight);

R4 := CreateRectRgn(0,0,0,0);

R5 := CreateRectRgn(0,0,0,0);

CombineRgn(R4,R2,R1,RGN_or);

CombineRgn(R5,R4,R3,RGN_or);

SetWindowRGN(Handle,R5,True);

DeleteObject(R1);

DeleteObject(R2);

DeleteObject(R3);

DeleteObject(R4);

DeleteObject(R5);

نهاية؛

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

يبدأ

SendMessage(Handle,WM_SYSCOMMAND,SC_MINIMIZE,0);

نهاية؛

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

يبدأ

SendMessage(Handle,WM_SYSCOMMAND,SC_DEFAULT,0);

نهاية؛

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

يبدأ

application.Terminate;

نهاية؛

نهاية.