• الإعلانات

    • فيصل الحربي

      تسجيل عضوية جديدة في المنتدى   01/31/2016

      السلام عليكم ورحمة الله وبركاته  عزيزي العضو الجديد :  حاليا رسالة الإيميل لتأكيد صحة إيميلكم تذهب للبريد العشوائي ( جاري حل المشكلة )  فإذا لم تجد رسالة التحقق من إيميلكم في صندوق الوارد لديكم إتجه للبريد العشوائي ( JUNK)  وقم بتفعيل إشتراككم من هناك   

PLANSHARP

اعضاء
  • عدد المشاركات

    32
  • تاريخ الانضمام

  • تاريخ اخر زياره

السمعه بالموقع

0 عادي

عن PLANSHARP

  • الرتبة
    عضو جديد
  • تاريخ الميلاد 12/09/1983

طرق الإتصال

معلومات الملف الشخصي

  • الجنس ذكر
  • الدولة : Saudi Arabia
  • اهتمامات Delphi, SQL Server.
  1. كيف أستعمل حدث MouseMove مع StringGrid

    السلام عليكم جرب procedure TForm1.StringGrid1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); var acol, arow: Integer; P: Tpoint; begin P.X := X; P.Y := Y; StringGrid1.MouseToCell(X, Y, acol, arow); Edit1.Text := format('%d %d', [acol, arow]); end; و فقكم الله.
  2. و عليكم السلام ورحمة الله وبركاته... بالنسبة لنسخ الدلفي أنا أستخدم XE3 و طبعا الأفضل هي السياتل النسخة الأخيرة من embarcadero. وبالنسبة لقواعد البيانات طبعا sql server, و ممكن تستخدم local db, للمشاريع الخفيفة. و بالنسبة للثيمات, ممكن إستخدام الثيمات المدمجة مع دلفي, بالنسبة إلي أستخدم Alpha Controls, ممتازة جدا. لم أفهم سؤال المنصات المتاحة؟؟   وفقك الله.
  3. الباركود مع لغة الدولفي 6

    السلام عليكم ورحمة الله وبركاته...   أخي العزيز. أغلب مكونات عمل التقارير في دلفي تحتوي على عناصر لأجل الباركود. ويمكنك الإطلاع أيضاً على العنصر المرفق و المتخصص في إنشاء الباركود.   وفقكم الله. tpsystools_4-04_2014-02-05.zip
  4. الحصول على الكود الاصلي

    السلام عليكم أخي العزيز فعلاً برنامج الـ DEDE ممتاز ويعيد لك لغة التجميع ولكن يعيد لك أيضاً الفورمات مع الكونترولات التي عليها مشكلتك حصلت معي مرة وأنصحك بأن تبحث عن الجهاز وأن تذهب إليه وتستعمل برنامج إستعادة الملفات المحذوفة وأقواها Advanced Easy Recovery والذي يقوم باسترجاع جميع الملفات و المجلدات التي قد يكون المستخدم قد حذفها وانتبه يا أخي: إعمل دائماً Backup لملفاتك وفقك الله.
  5. كيف يمكن عمل display item (list of value)

    ما رأيك لو استعملت Combobox و في خاصية الـ Items قم بتحميل محتويات عمود معين من الجدول الذي تريده وعند الضغط على الـ Combobox تجعل المستخدم يختار ما يريد وبذلك تكون قد سهلت الإدخال. الطريقة: ضع Combobox على الفورم و حدث الـ Onshow مثلاً ضع الكود التالي:  ComboBox1.Items.Clear;  ADOTable1.DisableControls;  try    ADOTable1.First;    while not ADOTable1.Eof do    begin      ComboBox1.Items.Add(DataSource1.DataSet.FieldValues['Your Field']);      ADOTable1.Next;    end;  finally    ADOTable1.EnableControls;  end; وبالتوفيق ;)
  6. بسم الله و الصلاةو السلام على رسول الله السلام عليكم ورحمة الله وبركاته كثيراُ ما نعاني من ترتيب الكود لكي تكون بشكل مفهوم, خاصة في الحلقات و العبارات المتداخلة, وbegin وend الكثيرة إليكم هذا العنصر الصغير, الذي يقوم بترتيب شيفرة الـ unit بضغطة زر واحدة طريقة التحميل: 1- قم بفك ضغط المرفق 2- شغل الملف SetupEx.exe فيقوم بتنصيب العنصر مباشرة, شغله مرة أخرى لإزالة العنصر طريقة الاستعمال: بعد تنصيب العنصر بنجاح شغل دلفي واذهب إلى القائمة Tools اضغط على Source Formatter ستظهر لك نافذة تحتوي على خيارات ترتيب الوحدة الحالية أو المشروع ككل فقط اضغط على الزر الذي تريد وسيقوم العنصر بترتيب الكود مباشرة وبطريقة رائعة وبذلك تكون قد وفرت الكثير من الوقت و الجهد. وللإختصار اضغط على CTRL+D ورتب كودك. ملاحظة: إذا كنت لم تحفظ برنامجك بعد لن يقوم بترتيب الكود! وبالتوفيق إن شاء الله ;) Expert.Formatter.rar
  7. شغل دلفي مع شوية حركات سحرية

    السلام عليكم إخواني, يمكنكم فتح خصائص إختصار ملف الدلفي, إذا كان الاختصار على سطح المكتب مثلاً ومن ثم ضمن الـ target يكون مكتوب المسار الكامل لملف الدلفي, لتشغيل البارامترات, إذهب إلى نهاية المسار وأضف البارامتر المطلوب. مثلاً: "C:\Program Files\Borland\Delphi7\Bin\delphi32.exe" بعد الإضافة يكون: "C:\Program Files\Borland\Delphi7\Bin\delphi32.exe" -ns ولإضافة عدة بارامترات بنفس الوقت: "C:\Program Files\Borland\Delphi7\Bin\delphi32.exe" -ns -np وبالتوفيق ;)
  8. متعلق بالريجستر

    السلام عليكم إذا كانت Mo غير موجودة هذا يعني أن النسخة غير أصلية وإذا كانت موجودة وقيمتها لا تساوي 2451547 فهي أيضاً غير أصلية. أعتقد الآن التحليل منطقي: var reg: TRegistry; begin reg := TRegistry.Create; reg.RootKey := HKEY_LOCAL_MACHINE; try   if reg.OpenKeyreadonly('\SOFTWARE\Microsoft\Windows') then   begin     if not(reg.ValueExists('mo')) then begin   showmessage('نسخة غير أصلية');   reg.free;   halt; end     else if reg.ReadInteger('mo') <> 2451547 then       begin         showmessage('نسخة غير أصلية');         reg.Free;         Halt;       end;   end; finally   reg.Free; end; وبالتوفيق ;)
  9. متعلق بالريجستر

    السلام عليكم var  reg: TRegistry; begin  reg := TRegistry.Create;  reg.RootKey := HKEY_LOCAL_MACHINE;  try    if reg.OpenKeyreadonly('\SOFTWARE\Microsoft\Windows') then    begin      if (reg.ValueExists('mo')) and (reg.ReadInteger('mo') <> 2451547) then        begin          showmessage('äÓÎå ÛíÑ ÇÕáíå');          reg.Free;          Halt;        end;    end;  finally    reg.Free;  end; وبالتوفيق ;)
  10. السلام عليكم Dynamically changing TCP/IP DNS addresses http://www.arabteam2000-forum.com/index.php?showtopic=89011 وبالتوفيق ;)
  11. بسم الله والصلاة والسلام على رسول الله عذراً! فقد كان هناك مشاكل مع إسترجاع اسم المستخدم القديم, لذلك فقط استعملت اسم Like Delphi ريثما قام الأعضاء بتفعيل هذا الحساب لي. وحسابي الأصلي هو: PLANSHARP المهم: إذا هيك يجب التركيز على عرض أقسام من الكود وبعض الواجهات المهمة في المشروع والتي كانت من أهم النقاط لا أعلم إذا كان هنا هو مكان جيد لمناقسة هكذا موضوع, المهم: يجب أن يحتوي العرض على: تقديم عن المشروع, أسماء المشاركين, ومن ثم البدء بتحليل النظام, ثم بعض الوحدات المستخدمة مع شرح لبعض أقسام الكود الفاعلة بعض الواجهات, واخيراً مميزات المشروع مع القليل من المبالغة!!! وبالنسبة للبرامج, الجميع يستخدم الـ POWER POINt, ومن أجل التغيير فنستطيع استخدام برامج أخرى تساعد على إعطاء أشكال جميلة للمشروع ومنها Multimedia Builder, سهل جداً وقوي وعروضه مميزة موجود على النت وحجمه 20 ميغا والتعلم عليه خلال 3 ساعات. وإذا كان هناك وقت ولديكم أحد يعمل على الفلاش فيكون أيضأً جيد. وبالتوفيق ;)
  12. سؤال حول المكونات التجريبية

    أصدقائي مرحباً لا أعرف إذا كان هذا ما تريدون على أية حال جربوا هذا الرابط , ومن شان الرسالة المزعجة إذا ممكن تبعتو العنصر و من شوف بعدها شو بيصير الرابط للعنصر , العنصر هذا يظهر رسالة و لكن مع fakedelphi تختفي http://www.swiftsoft.de/downloads.html مع تحياتي :)
  13. منافذ ال PCI

    بسم الله الرحمن الرحيم الحمد لله رب العالمين أولاً : شكراً للأخ SUM و شكراً للصديق العزيز محمدMR أنا آسف على تأخري في الرد أشكركم جداً , فعلاً هذا ما أريده جزاكم الله كل الخير أخي محمدMR , ياريتك اشتركت من زمان تحياتي :):):)(f)(f)(f):)
  14. سيريل نمبر لدلفي 6

    صديقي إليك الرقم s/n: z9j8-pum4n-c6gzq Key: rw2-7jw (f)(f)(f)
  15. تعلم كيف تضبط صوت الجهاز

    شكرأ لك أخي أبو ديلفي و أود أن أضيف أن القيم الممتدة من $00000000 حتى $FFFFFFFF تنقسم إلى قسمين فعدد المنازل لهذا الرقم هو 8 و بالتالي 4 للقناة اليمينية و 4 للقناة اليسارية فمثلاً نود أن نضع الصوت في القناة الأولى على أعلى قيمة و نريد أن نخفي صوت القناة (أو البفل) الآخر : (waveOutSetVolume(0,$FFFF0000 أو (waveOutSetVolume(0,$0000FFFF أخوك PLANSHARP :)