romanof

لا شكر على واجب

ربما من المفيد ان تقرا موضوع اخلاق الهاكر الحقيقية /index.php?showtopic=69090

ملاحظة صغيرة في المرة القادمة حاول ان تجعل اسم المشاركة دالا لمعناها لاني ساضطر الى اغلاق المشاركة

اذهب الى الفورم الابن واجعل الخاصية BorderStyle تاخذ القيمة bsSingle واطلعني بالنتيجة انا انتظر الاجابة

انا جبت لك اللعبة يا جوجو Project2.rar

02/11/2004 سيف الدين 2 محمد نسمان أبو محمـد Amersy لابد من شد الهمة لابد مكافاتكم اولا ومن تحميلكم جزء من المسؤلية

انا قصدي انه اللغة D فعلا موجودة

تستطيع عمل بجث في نص بالطريقة التالية function SearchForText_AndSelect(RichEdit: TRichEdit; SearchText: string): Boolean; var StartPos, Position, Endpos: Integer; begin StartPos := 0; with RichEdit do begin Endpos := Length(RichEdit.Text); Lines.BeginUpdate; w…

اخي العزيز للاسف لم استطع رؤية مثال الاخ سيف الدين ولكن سأخبرك بفكرة قد تفيدك في المثال المرفق تجد مثال للبحث عن نص بامكانك التعديل عليه حتى يناسب طلبك ومن ثم تستطيع ان تلائمه مع قواعد البيانات عن طريق المكون TDBMemo Text_Editor.rar

طالما ان الاخ عروة طلب مني ان ارشح اعضاء فاعلين اليكم التالي 02/11/2004 سيف الدين 2 محمد نسمان أبو محمـد Amersy ارجوكم اريد راي الجميع في هذه الاسماء واعتذر ان خانتني االذاكرة في تذكر البقية

for i:=0 to MDIChildCount-1 do begin MDIChildren.Left:=20; MDIChildren.Top:=20; end; في هذا الكود تصل الى كل فورم child برقمه الخاص مثلا الفورم الاول MDIChildren[0].Left:=20; وهكذا اتمنى ان اكون قد وضحت

شكرا للجميع اتمنى ان اكون اهلا للمسؤلية

نعم صحيح

شكرا :lol: ماذا عنك لماذا ترمي المسؤلية كلها على ظهري :( في الوقت الذي لاتقل عني فيه باي شئ انت ايضا دائم التواجد يا اخ سيف الدين 2 :wacko: انا لااعرف لماذا لايدور الحديث عنك :rolleyes: :rolleyes: ابو محمد اعتذر بقلة التواجد اكن انت قل لي ما هو عذرك؟ هل ستقول …

اعرف هذا الكتاب لكني قصدت انه من المواضيع التي نادرا ما يتطرق العرب اليها شكرا اخي :rolleyes: انت سيد العارفين انه هذه مسؤلية كبيرة واشكر جميع الاعضاء الذين منحوني ثقتهم معا سنقضي على الارهاب(بوش ) :lol:

هذا الكود للقراءة من المودم var PortSpec : array[0..255] of char; PortNo : Word; success : Boolean; error:integer; begin FillChar(PortSpec,Sizeof(PortSpec),#0); StrPCopy(PortSpec,'Com1:19200,n,8,1'); PortSpec[3]:=Char(Ord(PortSpec[3])+Ord(PortNo)); if not Buil…

اهلا ابو هادي ان شاء الله نستفيد من بعض ممتاز الموضوع مطروق سابقا ولكني لم اكمله انظر الملف المرفق وستجد هناك مقالات مختلفة اطلع عليها وهات ما عندك your component.rar

ماذت عن تقنية com ماذا عن بناء المكونات والdot net العمل مع الريجستري المشوار امامنا طويل ومحتاج لجهود الجميع

نقل اوامر ال AT الى المودم مثلا رفع السماعة procedure upmodem; var PhoneCommand: string; CommPort: string; NumberWritten: cardinal; begin PhoneCommand := 'ath1' + #13 + #10; //Поднять трубку CommPort := 'COM1'; //-------------------Открыть порт как файл} hComm…