الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

Tip for Delphi

مغلق
بدأه أحمد الجفري في 20 أبريل 2001 · 2 رد · 1,359 مشاهدة · في لغة Delphi
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

لمستخدمي دلفي

جربوا هذا الكود ;)

var
  R1: HRGN;
  R2: HRGN;

begin
  R1 := CreateEllipticRgn(1, -1, Width - 1, Height);
  R2 := CreateEllipticRgn(50, 50, Width - 50, Height - 50);
  CombineRgn(R2, R1, R2, RGN_XOR);
  SetWindowRgn(Handle, R2, True)
end;

طبعا يتم وضعه في الحدث OnCreat

تحياتي

[عدلت بواسطة محمد عبد الودود مرعشي ت:20-04-2001 س: 08:50 PM]

#2

الله يعطيك العافية، وتشكر على هذا المثال الجميل والمدور

#3

بسم الله الرحمن الرحيم

الأخ الكريمASP4DB

جزاك الله كل خير

بس احب انبه

اذا كان واحد منكم (( اعني مبرمجين دلفي )) يود تغيير شكل الفورم الى شكل صوره والأرزاه الى اشكال اخرى وتصميمات رائعه

اليكم مجموعة 1stClass

وستجدونها في هذا الموقع

http://www.woll2woll.com

بأسم

1stClass Trial version for Delphi 5.

فأنا انصح الجميع بأستعمال هذه المجموعه

اخوك SUM

هذا الموضوع مغلق.

مواضيع مشابهة