كيف التعامل مع اكواد دلفي مثل نسخ procedure إلى مشروع جديد

[Mr-HERO]

السلام عليكم ورحمة لله وبركاتة

صراحة عندي مشروع وكل ما انسخ كود دلفي يظهر لي خطا
لاني متعود على لغة فيجوال بيسك نسخ ولصق تحت الحدث فقط
لكن اعتقد هنا في الدلفي الامر مختلف قليلا

مثلا ناخذ كود من موضوع اخونا المبدع nabilkeb مرجع المبتدإ (مجموعة من الأكواد)
مثلا ناخذ مثال كود اخفاء سطح المكتب

كود :

procedure Desktop(Desk:boolean); begin DID := FindWindow('progman', nil); if DID <> 0 then begin if Desk then ShowWindow(DID, SW_SHOW) else ShowWindow(DID, SW_HIDE); Desk := not(Desk); end; end

نجهز الفورم على السريع

كود :

http://store2.up-00.com/May12/0nG34845.jpg

نضغط على الزر لتظهر لنا الاكواد

كود :

http://store2.up-00.com/May12/e3434845.jpg

كود اخفاء سطح المكتب

كود :

http://store2.up-00.com/May12/GGX34845.jpg

لصق

كود :

http://store2.up-00.com/May12/oSx34845.jpg

كود :

http://store2.up-00.com/May12/jEh35176.jpg

[hanipino]

و عليكم السلام و رحمة الله

راجع هذا الموضوع
http://www.delphi4arab.net/forum/showthr...p?tid=3542

[محمد عبد العزيز]

وعليكم السلام ورحمة الله

عليك بعض كتب Pascal ودلفي لتتعلم والرابط الذي وضعه أخي هاني مفيد ان شاء الله

بالنسبة لنسخ Procedure التي ذكرتها كمثال فيكون قبل procedure الزر أو لنقل مباشرة بعد implementation بالمشروع ثم استدعائها من الزر مرفق مثال1

كود :

var Form1: TForm1; implementation {$R *.dfm} procedure Desktop(Desk:boolean); Var DID : THandle; begin DID := FindWindow('progman', nil); if DID <> 0 then begin if Desk then ShowWindow(DID, SW_SHOW) else ShowWindow(DID, SW_HIDE); Desk := not(Desk); end; End; procedure TForm1.Button1Click(Sender: TObject); begin Desktop(False); end;

طريقة ثانية هي نسخ الكود الموجود بين Begin و End للProcedure مباشرة بين BeginوEnd الزر + نسخ المتغيرات ان وجدت مرفق مثال 2 مع تعديل على الكود للتبسيط

كود :

procedure TForm1.Button1Click(Sender: TObject); Var DID : THandle; begin DID := FindWindow('progman', nil); if DID <> 0 then ShowWindow(DID, SW_HIDE); end; procedure TForm1.Button2Click(Sender: TObject); Var DID : THandle; begin DID := FindWindow('progman', nil); if DID <> 0 then ShowWindow(DID, SW_SHOW) end;

طريقة ثالثة هي تقسم الكود السابق حسب الحاجة وكتابة جزء من بالحدث OnCreate للForm مثال مرفق 3

ملاحظة: الكود الذي نسخته من الأخ نبيل ينقصه التصريح بالمتغير DID وهو من نوع THandle
بالتوفيق

[Mr-HERO]

مشكور جزاك الله الخير
وجاري التجربة