محمد عبد الودود مرعشي

أخي عبد القادر آسف لتعديلي الموضوع، ولكن التعديل فقط لأجل ظهور الصورة، كما أتمنى أن تستخدموا ملفات ذات أسماء بحروف صغيرة Small Letter وتشيروا إليها ضمن ملفات Html باستخدام الحروف الصغيرة لضمان عرض الملفات بشكل سليم كل تحياتي لكم

أخي طارق إن قسم دلفي في منتدانا هو محاولة من الفريق العربي للبرمجة كما تعلم للم شمل مبرمجي دلفي العرب، ونأمل بالحماس من كل الزوار للتعرف على هذه اللغة الرائعة ونرغب بمساهمتهم لرفع شأن هذا القسم وإغنائه بأفكارهم وتجاربهم

تحياتي لك أخي أنس وصلتني رسالتك، وأتمنى أن تظل معنا في هذا المنتدى دوماً مجدداً لك أطيب تحياتي

تحياتي لك أخي عبد القادر، ولكل المشرفين في المنتدى، وكما أقدم أحر التهاني باستلامك الإشراف على هذا المنتدى، راجياً الفائدة والمتعة لكل الزوار والله يوفقك

مع أطيب تحياتي للأخ المترجم، على هذا الاهتمام، إلا أنه لم يتقيد بالمصطلحات العربية السليمة فكانت الترجمة غير مقنعة نسبياً أكرر شكري لجهده الجبار والله يوفقه

افتح مشروعاً جديداً ضع زراً (Button1) على النموذج Form1 ثم اكتب الحدث Click للزر وبعد ذلك ستغدو الوحدة Unit1 كما يلي: unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Butt…

راجعي الموضوع " سؤالين أرجو الإجابة عنهما لو تكرمتم ==========>>> " في منتدى دلفي وستجدي ضالتك إن شاء الله

unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Edit1: TEdit; Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public …

الأخ رمضان: يمكن التصريح عن الإجراء المطلوب ضمن قسم implementation كما يلي: Function Sum(A:array of Integer): Integer; var I, T: Integer; begin T := 0; for I := Low(A) to High(A) do T := T + A; Sum := T; end; وهذا التابع يقوم بحساب مجموع عناصر المصفوفة الممررة…

الحل ببساطة: with button1 do if caption = 'OK' then caption := 'Cancel' else caption := 'OK'; ولكن لا تنسى أن مناقشة السلاسل النصية تتأثر بحالة الحرف

حياك الله يا أخي هاني أين أنت منذ فترة، لا تنس مراسلتي

لأفترض أنك تريد عشرة أزرار (مثل أزرار الأرقام في الآلة الحاسبة)، وتريد ربط الأزرار العشرة بإجراء واحد دون برمجة العشرة كلها، فقم بما يلي: ضع عشرة أزرار على النموذج ثم غير خاصية Caption العائدة لها بالترتيب : من 0 حتى 9 انقر نقراً مزدوجاً على الزر الأول وليكن ا…

السريفس باك 4 موجودة عندي على سيدي، ولكن لا أعرف كيف سأوصلها لمن يحتاجها

أخواني المتسائلين والمستفسرين أرجو منكم الانتظار قليلاً، وسأوافيكم إن شاء الله بموضوع مفصل ومكثف عن مزايا ومساوئ الدلفي ومقارنتها بفيجوال بيسك وشكراً لانتظاركم سلفاً [عدلت بواسطة محمد عبد الودود مرعشي ت:13-01-2001 س: 09:40 PM]

مبروك أخي هاني عودة المنتدى أتمنى أن تراسلني فقد انقطعت أخبارك عني منذ فترة

يمكن فعل ذلك باستخدام تقنيات OLE Automation لأتمتة تقارير Access وهنا يشترط وجود Access على الجهاز وسأوافيكم بالتفاصيل لاحقاً إن شاء الله

يمكن حل الموضوع مباشرة من vb بالمثال التالي المقتبس عن MSDN: Dim SourceFile, DestinationFile SourceFile = "SRCFILE" DestinationFile = "DESTFILE" FileCopy SourceFile, DestinationFile [عدلت بواسطة محمد عبد الودود مرعشي ت:05-12-2000 س: 11:14 PM]

الأخ فلسطيني في القرص رقم /3/ من حزمة Visual Studio 6.0 يمكنك أن تجد ضالتك وتركبها بتشغيل الملف التنفيذي الموجود في المسار التالي: G:COMMONTOOLSVBCRYSREPTCRYSTL32.EXE وبعد التركيب يمكنك تشغيل مصمم التقارير من المكان الذي طلبت من برنامج التركيب أن يركبه وستجد ا…