إبراهيم_دياب5

أخى العزيز : بالنسبة للسؤال الثانى أعتقد بأن هذا الكود به ما تريد procedure TForm1.Button1Click(Sender: TObject); var MyString: string; begin MyString:=inputbox('Title','Enter your data','Default Data'); end; وإن لم يكن هو المطلوب الرجاء التوضيح أكثر مع تحياتى…

السلام عليكم أخى SUM أقوم الآن بتحميل الـ Kylix بلا مشاكل وقد إستطعت فتح الموقع ولكنى كنت أريد عنوان الصفحة الموجود بها مجموعة برامج الدلفى فقط للإطلاع والمعرفة ولعلى أجد فيها ما يسمى Delphi extreme toys لأنى سمعت عنها أنها جيده. وشكراً إبراهيم دياب

هذا الكود يعمل مع الــ windows العاديه ولكنه لا يعمل مع WinXP فما الحل؟

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

مرحباً بعودتك أخى العزيز SUM ونشكرك على هذه التحديثات. ولكن لدى سؤال : كيف يمكنك التغلب على اللغة الصينية ؟

السلام عليكم ورحمة الله وبركاته إخوانى فى المنتدى هل يعرف أحدكم مكان لتنزيل الــ Kylix بشرط أن يكون يعمل بلا مشاكل وبالطبع بالــ CD-Key وشكراً

أعتقد بأن هذا الموقع به ما تحتاجه من برامج SETUP http://down.51soft.com/soften.asp?search=111 مع تحياتى إبراهيم دياب

أخى العزيز إليك هذا الكود procedure TForm1.RichEdit1Change(Sender: TObject); begin SendMessage(RichEdit1.handle, EM_SCROLLCARET,0,0); end; هذا خاص بالــ RichEdit عدله بحيث يتناسب مع إحتياجاتك مع تحياتى إبراهيم دياب

أخى العزيز Lola: أرجو منك مزيد من التفصيل ولكن حسب ما فهمت أعتقد أن حكاية الألوان تكون أفضل عند إستقبال الرسالة. عموماً فى إنتظار مزيد من التفصيل لمشكلتك لعل الله يوفقنا لحلها. أخوك : إبراهيم دياب

لقد قمت بعمل هذا الإجراء لعل يكون به الفائدة ولا تنسى عمل التعديلات اللازمة إذا كان عدد أجزاء الرسالة أكثر من 3 أو أن الفواصل ليست " , " - ولتحصل على النتائج سيكون عن طريق تعاملك مع المصفوفة Newmsg Procedure cutmessage(OrgMsg:String); var mcount,mmcount: integ…

أخى Lola ، إخوانى الأعزاء بالمنتدى أعتقد أن المثال السابق سيحتاج للـ RxRichEdit ضمن مجموعة الـ RxLib والتى يمكنكم تحميلها من العنوان التالى http://www.murtsoft.com/Downloads/ThirdParty/rx_d6.zip مع تحياتى (f) (f) (gift) (f) (f)

السلام عليكم ورحمة الله وبركاته هل توجد طريقة لأحصل على الـ IP الخاص بكل من ethernet adapter , ppp adapter غير هذه: function getIPs: Tstrings; type TaPInAddr = array[0..10] of PInAddr; PaPInAddr = ^TaPInAddr; var phe: PHostEnt; pptr: PaPInAddr; Buffer: array[0…

هذا الكود يقوم بعمل لون لكل كلمة على حده وليس سطر سطر procedure AddText(MyText : String; txtColor : TColor; RichEdit : TRichEdit); begin RichEdit.SelAttributes.Color := txtColor; RichEdit.SelText := MyText; RichEdit.SelAttributes.Color := clWindowText; end; ول…

أعتقد أنى وصلت للحل function BitmapToRTF(pict: TBitmap): string; var bi,bb,rtf: string; bis,bbs: Cardinal; achar: ShortString; hexpict: string; I: Integer; begin GetDIBSizes(pict.Handle,bis,bbs); SetLength(bi,bis); SetLength(bb,bbs); GetDIB(pict.Handle,pict.Pa…

أعزائى : هل يعرف أحدكم كيفية وضع صوره صغيرة فى الـ RichEdit كما هو الحال فى الــ Messenger

أشكركم إخوانى على سرعة الرد ولكن طريقة الأخ fsl هى التى حلت المشكلة لدى (f)

السلام عليكم ورحمة الله وبركاته إخوانى : عندما يفشل الـ client فى الوصول إلى الــ server تظهر هذه الرسالة " asynchronous socket error 10060 ". كيف يمكن منع هذه الرسالة من الظهور وإستبدالها برسالة أخرى من داخل البرنامج؟

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

أخى العزيز Lola أرجوا منك زيارة yahoo.com وتكشف على Email بإسم: ibrahimdiab0105632576 وكلمة المرور ibrahimdiab ستجد رسالة بإسم " برامج الشبكات " إفتحها ثم إضغط على Download attatchment لعل الحل يكون فيها

أخى العزيز SUM وفقك الله فى دراستك وفى إنتظار على شوق لباقى الدروس. لقد ذكرت فى موضوع سابق لك أن هناك كمبوننت أفضل للــ client, server - فهل يمكن معرفتها؟ وشكراً إبراهيم دياب