ORWA

لعيونك ... ;) هاذا هو الملف : البرنامج لاختبار حالة قرص معين type TDriveState(DS_NO_DISK, DS_UNFORMATTED_DISK, DS_EMPTY_DISK, DS_DISK_WITH_FILES); function DriveState(DrvLetter: Char): TDriveState; var Mask: String[6]; SearchRec: TSearchRec; oldMode: Cardinal;…

راجع المثال المرفق .. الطريقة بسيطة (ضع متحول بولياني Boolean يأخذ true إذا كنا نعمل في وضع التحرير و false في وضع جديد . وبإستخدام if else نكتب كل من الشفرتين . لاتنسى ضبط هذا المتحول من الفورم الأول قبل إظهار الفورم الثاني ) من صفحة standard أستخدم actionlis…

أظن ان الموضوع هو وجود عدة أنواع للريفريش , وربما يجب القيام بها برمجيا قبل تحميل الصورة التاليه , لم أعد أذكر تماما الملاحظات التي خلصت بهال عن الموضوع آخر مرة تعاملت فيها مع webBrowser ولكن المؤكد أنه توجد أكثر من طريقه للrefresh مثلا توجد refresh2 التي لها …

حسنا طريقة قد تكون غبيه ولكنها ربما تعمل ضع ActionList وأضف new standard action ثم من تبويب أنترنت إختر tDOWNLOADURL .. لست متأكد ان هذا ما تريده إذا لم يكن كذلك نحاول بطريقه أخرى

وهذا الكود يقوم بقرائة الملفات المفتوحه var FileName : string; i : integer; begin for i := 1 to ParamCount do begin if i = 1 then FileName := ParamStr(1) else FileName := FileName+' '+ParamStr(i); end;

برنامج DEDE برنامج ترجمة عكسية خاص بدلفي , ولكنه في الحقيقه لا يستطيع العمل مع المشاريع الكبيرة كما أنه لا يعيد الشفرة كامله بل يتوقع وجودها ولكنه غالبا يستطيع إعادة الفورمات والمكونات (التصميم) في حال إستخدام مكونات قياسية إبحث عنه على النيت , ربما يعجبك

رائع

هزيمة نكراء .... :angry:

والله ياحبيب ما بعرف .. برنامجك عطاني خطأ وخايف مايكون عملو شي مشكلة .. هوي برنامج شو ؟؟

السؤال 1: بإستخدام SQL العبارة هي : DELETE FROM Cust WHERE 1 مثلا : with ADOQuery1 do begin Close; SQL.Clear; SQL.Add('DELETE FROM Cust WHERE 1'); ExecSQL End; DoNull; السؤال 2 .. ماذاتقصد بكود سري , : حمايه تشغيل البرنامج بكلمة مرور ؟

إستخدم الدوال الخاصه بها .. يوجد العديد منها . مثال : procedure TForm1.Button1Click(Sender: TObject); var x:integer; begin Randomize; x:=RandomRange(10,20); showmessage(inttostr(x)); end;

حلو هذا يحل مشكلة النسب الديناميكي التي كان يجب أن أشرحها الطريقة سليمة : ننشيء صنق جديد من أجل الأحداث TConnection = class procedure Read(Sender: TObject; Socket: TCustomWinSocket); procedure Disconnect(Sender: TObject; Socket: TCustomWinSocket); end; وننسب ا…

البرمجة غرضية التوجه : قد تتسائل كثيرا ماهي غرضية التوجه هذه ولماذا هذة الزحمة الإعلانية لها, حسنا برأيي أنه ربما تكون الإبداعات البرمجيه الحديثه ما هي إلا نتاج التفكير الغرضي الصحيح . غرضية التوجه بعيدا عن المفهوم القواعدي لها هي أسلوب كتابة برامج يركز على قا…

يلعن أبو العيب ..... لسانا بسوريا عالبروكسي , وخدمة سيئه , وأسعار غاليه الله يطعمنا أنترنت مجانيه , مشان يخف المصروف شوي ونتبحبح بالصرف مبروك للسعوديه

أين هو ؟

ArMan لزيادة دعم اللغه العربيه في دلفي مكون مجاني مفتوح المصدر لزيادة دعم دلفي للغه العربيه , مفيد لكل مطور تطبيقات عربي , كما انه يساعد ويسرع عمليه ضبط الإتجاة من اليمين لليسار إصدارة حديثه Version 0.3 تم تحديث المكون .. وقد يتم تحديثة دائما لذلك يرجى مراجعة …

جميل جدا ضع له لوح تحكم بالصوت ولائحه ملفات لكي يقبل فتح أكثر من ملف وإسمح بالتقديم والتأخير . أي فكره منهم تريد مساعده فيها أنا جاهز .. فقط إبدأ والجميع معك

نستخدم المتحول الوسيطي Sender الذي يوجد بترويسه كل مناهج دلفي . ولكي نفهم دلفي أننا نتعامل مع CheckBoxes وكي نحصل بالتالي على الإستخدام الأمثل له نكتب : Sender as TCheckBox).anymethod or property ) مثلا بإمكاننا معرفه إسم الcheckBox التي ولدت الحدث كالتالي : s…

ok i need some time because i hav not arabic computer now then we will resume

hi i have not arabic computer now see the component forum . i put a topic there about how to install components in delphi