delphi4arab منتديات دلفي للعرب

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

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

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

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

راجع هذا الموضوع
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

hanipino

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

Mr-HERO