طلب كومبوننت لاشكال مختلفة للنوافذ

يمكنك الدخول هنا

http://solair.eunet.yu/~beginner/bsdt/bsdt.zip

أو هنا

http://solair.eunet.yu/~beginner

ثم تنزل برنامج Beginner Software's Delphi Tools ستجده فى نهاية الصفحة ثم تعمل Register بالبيانات التالية

Name: wasted [ORiON]

s/n: 174010

وستجد ما تريده إن شاء الله

إبراهيم_دياب5

يعطيك العافيه اخوي .... ولكن هل تعرف كيف اعمل registeration

لنه لا يظهر بعض الاكواد

أختى العزيزة آلاء:

لتعملى Register كما مكتوب سابقاً:

بيانات الــ Registration

Name: wasted [ORiON]

s/n: 174010

يمكنك ذلك بإختيار خانة Registration فقط وإدخال البيانات السابقة.

(gift)

السلام عليكم

هذا البرنامج جيد وفيه بعض المميزات وما قصرت ولكن بالنسبة لأشكال الفورم ثابته فلا يمكنني ادرج صورة قمت بصميمها في برامج الرسم لأضعها هي الفورم فهذا البرنامج يعطي فقط اشكال هندسية ثابته

أعتقد أخى أنك تريد وضع صورة فى TImage وإعطائها خاصية الــ Transparent ثم تلغى الــ Form من خلفها ولا تظهر.

هل أنا فهمتك صح؟

السلام عليكم أخى:

يمكنك تجربة هذا الكود عسى أن يكون هو المطلوب:

procedure TForm1.Button1Click(Sender: TObject);

Var

frmRegion, tempRegion: HRGN;

i: Integer;

Arect: TRect;

Begin

frmRegion := 0;

For I:= 0 To ControlCount - 1 Do Begin

aRect := Controls.BoundsRect;

OffsetRect( aRect, clientorigin.x - left, clientorigin.y - top );

tempRegion := CreateRectRgnIndirect( aRect );

If frmRegion = 0 Then

frmRegion := tempRegion

Else Begin

CombineRgn( frmRegion, frmRegion, tempRegion, RGN_OR );

DeleteObject( tempRegion );

End;

End;

tempregion :=

CreateRectRgn( 0, 0, Width,

GetSystemMetrics( SM_CYCAPTION )+

GetSystemMetrics( SM_CYSIZEFRAME )+

GetSystemMetrics( SM_CYMENU ) * Ord(Menu <> Nil));

CombineRgn( frmRegion, frmRegion, tempRegion, RGN_OR );

DeleteObject( tempRegion );

SetWindowRgn( handle, frmRegion, true );

end;

[code2/]