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

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

+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف التعامل مع اكواد دلفي مثل نسخ procedure إلى مشروع جديد (/showthread.php?tid=4207)

كيف التعامل مع اكواد دلفي مثل نسخ procedure إلى مشروع جديد - Mr-HERO - 20-05-2012

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

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

مثلا ناخذ كود من موضوع اخونا المبدع 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

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

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

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

كيف التعامل مع اكواد دلفي مثل نسخ procedure إلى مشروع جديد - محمد عبد العزيز - 21-05-2012

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

عليك بعض كتب 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
بالتوفيق

كيف التعامل مع اكواد دلفي مثل نسخ procedure إلى مشروع جديد - Mr-HERO - 21-05-2012

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