كيف أجعل الفورم يأخذ شكل صورة png

[M.Jawad]

السلام عليكم
رأيت العديد من البرامج التي تحوي هذه الميزة وهي جعل الفورم يأخذ شكل صورة png مع الشفافية كبرنامج الساعة (clocx) وبرنامج (Rocket dock)

كيف أستطيع أن أجعل الفورم يأخذ شكل صورة png مع شفافية الصورة ؟

[AL-MOB4RM3G]

نعم اخي الكريم...
اعتقد اخي اذا فهمتك صحيح انك يمكنك ذلك...
ولكن تابع الدرس المرفق ان شاء الله ...

هي العملية جدا بسيطة...
يعني الدرس ليس طويلا..

ولا تنسى ان تدعوا لي..

[kachwahed]

إضافة شيء صغير...
ثم أكتب هذا الكود في حدث عند النقر على المكون Shape

كود :

procedure TForm1.Shape1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin ReleaseCapture; Form1.Perform(WM_SYSCOMMAND, $F012, 0); end;

... وبالتالي تحصل على نموذج إطار (فورم) على شكل دائري يتحرك باستخدام الماوس.

[M.Jawad]

شكراً لك أخ moh__ لكن قصدي أن يأخذ الفورم شكل صورة png مع شفافية الحواف

[AL-MOB4RM3G]

نعم اخي الكريم..
في الحقيقة يمكنك فعل ذلك ...
اولا الأجزاء من الصورة التي لا تريدها ان تظهر حولها الى الون الأسود...

ثم حوّل الصورة PNG الى bmp حتى تستطيع ادخالها في image في دلفي...

ثم قم بعمل الخاصية transperent الى true في ال image...

وهذا كل شئ والله تعلى اعلم...

ان شاء الله تستفيد اخي الكريم...
وان كان هناك اي سؤال تفضل..

والسلام عليكم

[M.Jawad]

هذه الطريقة تجعل الفورم شفاف لكن حوافه قاسية ليس فيها شفافية مثل صور الـ png

أنا **** أن تكون حواف الفورم شفافة أي فيها تدرج في الشفافية مثل الصورة السابقة


على كل حال أنا أشكرك جزيل الشكر أخ moh__

[Rover]

هل تقصد مثل المثال المرفق ... ??

Esc = exit

[M.Jawad]

نعم أخ Rover هذا هو قصدي تماماً

ياريت تعطيني السورس كود للمثال السابق وشكراً

[Rover]

لا, سأعطيك ماهو أفضل ...


http://melander.dk/articles/alphasplash2/1/

[M.Jawad]

أشكرك جداً أخ Rover هذا هو مطلبي تماماً
لكن يا ريت تشرحلي كيفية العمل (إذا مافيها مضايقة)