najy_zl

السلام عليكم... فقط ضع فاصلة منقوطة في نهاية الأمر Print Print #1, sTemp; نرجو الاستفادة و السلام.

السلام عليكم... استعمل المكون Microsoft Masked Edit Control مع ضبط الخاصية Mask على: ##-##-##-## نرجو الاستفادة و السلام.

السلام عليكم... المكون هو ComboBox مع ضبط الخاصية Style على Simple Combo و توسيعه للأعلى و الأسفل (الارتفاع). نرجو الاستفادة و السلام.

السلام عليكم... لم أقم بتنزيل المرفقات، لكن حسب علمي - و الله أعلم - فإن الرسم البياني يتبع محتويات الجدول، و بالتالي يمكننا استعمال الخاصيتين Filter و Filtered لتطبيق الشروط التي يحددها المستخدم (السنة و مكان الاستهلاك) على الجدول فتنعكس عملية التصفية على الر…

السلام عليكم... ما يجعل المكون DBGrid في دلفي رائعاً (مقارنة بـ VB مثلاً) أنه يمكنك التحكم به بشكل كامل و بأية طريقة تريدها، و السر - لا تخبر أحداً :lol: - يكمن في إجراء الحدث OnDrawColumnCell (لا تخلط بينه و بين الحدث OnDrawDataCell الموجود فقط للتوافق مع نسخ…

السلام عليكم... قبل أن أصبح مشرفاً ثم "مشرفاً قديماً" :blink: كان لقبي في المنتدى "خبير دلفي و فيجوال بيسك" و رغم أن اللقب قد لا يعني الكثير، إلا أن لقب "مشرف سابق" لا يعني شيئاً أبداً فهو لا يدل مثلاً على التخصص أو الاهتمامات أو الخبرة ... إلخ. بالإضافة إلى أ…

السلام عليكم... المطلوب غير واضح. الرجاء التوضيح: 1. هل تريد إنشاء اختصار (Shortcut) (مثلاً F1) للزر؟ 2. هل تريد أن يظهر رمز الاختصار (F1 مثلاً) مع عنوان (Caption) الزر؟ 3. هل تريد أن يظهر رمز الاختصار (F1 مثلاً) كتلميح (Hint) عند وضع مؤشر القأرة عليه؟ ما هو ا…

السلام عليكم... الشكر لأخينا c_vita. في القسم interface تحت عبارة type ضع التعريف التالي: type // التصريح عن نوع بيانات TCustRecord = record Code:Integer; CopyDone: Boolean; Nom, Prenom, Fonction: string; end; TForm1 = class(TForm) D1: TDataSource; // ... // .…

السلام عليكم... بالنسبة إلى تغيير عرض الأعمدة فإنه لا توجد مشكلة لأن المكون TDBGrid لديه الخاصية Columns التي تستطيع من خلالها الوصول إلى أي عمود لتحديد مواصفاته. مثلاً الكود التالي يعمل على جعل العمود رقم 2 بعرض 120 بكسل: DBGrid1.Columns[2].Width := 120; أما …

السلام عليكم... مشكور جداً أخي alouma على الدرس، و جعله الله في ميزان حسناتك. سلام.

السلام عليكم... أرجو من الإخوة المسؤولين عن تصميم الموقع تغيير رمز علم ليبيا و ذلك باستعمال علم الاستقلال: بدل علم العهد البائد الأخضر. مع جزيل الشكر.

السلام عليكم... الوظيفة ShowMessage فقط تعرض رسالة بسيطة مع زر OK. و هي في الواقع إجراء و ليست دالة، و بالتالي فهي لا تعيد قيمة لأنه أصلاً ليس لها أزرار ليختار مها المستخدم. فقط الزر OK لإغلاق الرسالة. اتجاه الرسالة (من اليسار إلى اليمين أو من اليمين إلى اليسا…

السلام عليكم... أنت في الحقيقة تتعاملين مع علاقة "مجموعة إلى مجموعة" (Many-to-Many أو M -> M) لأنه - من ناحية أخرى - كل جبهة تكون قد حارب فيها عدة شهداء. في هذه الحالة نحتاج إلى جدول وسيط (Intermediate Table) يتكون على الأقل من حقلين هما "رقم تعريف الشهيد" (مث…

السلام عليكم... 1. قم بتعريف متغير خارجي (خارج الإجراءات - تحت القسم implementation مثلاً). سنستعمل هذا المتغير كعداد. implementation {$R *.dfm} var Idx: Cardinal; 2. في الحدث OnCreate للـ Form نعطي قيمة مبدئية للمتغير. procedure TFRtlForm1.FormCreate(Sender: …

السلام عليكم... إذا كانت لكل سؤال إجابة واحدة فقط (و هذا ما أظنه لأنك تستخدم الـ OptionButtons) فإن أفضل طريقة هي استعمال مصفوفة المكونات (Control Array) لسهولة جمع الدرجات (القيم). كمثال: 1. ضع على الـ Form مكون Frame (سيكون اسمه Frame1) لإجابات السؤال الأول.…

السلام عليكم... استخدم الخاصية Tag للـ OptionButton لتخزين القيمة (ربط قيمة معينة بالـ OptionButton). نرجو الاستفادة و السلام.

السلام عليكم... هذه الرسالة بالذات - مع العيوب الأخرى في الـ DataReport المرفق مع VB6 - هي ما جعلتني أبتعد عن استخدام الـ DataReport منذ مدة طويلة. استعمل الـ Crystal Reports (النسخة 8 أو 10) فهي أفضل بكثير و توفر إمكانيات متقدمة جداً على الـ DataReport. بالنس…

السلام عليكم... استعمل الكود التالي قبل عرض التقرير أو طباعته: DataReport1.Orientation = rptOrientLandscape نرجو الاستفادة و السلام.

السلام عليكم... 1. في قسم التصريحات العام لكود الـ Form أضف التصريح التالي للدالة StretchBlt لاستعمالها لتحجيم الصورة بالحجم المطلوب (طبعاً كما هو معروف في دوال ويندوز يجب أن يكون التصريح في سطر واحد - أو عدة سطور مربوطة بعلامة الربط _ ): Private Declare Funct…

السلام عليكم... عندما تستدعي الوظيفة Add للـ ListItems قم بتحديد الـ Index على 1 كما في المثال التالي: ' قسم التصريحات العام Private ItemIndex As Long Private Sub Command2_Click() Dim AItem As ListItem ItemIndex = ItemIndex + 1 Set AItem = ListView1.ListItems.…