حسين طياوي

وعليكم السلام هذا مثال procedure TForm1.FormCreate(Sender: TObject); var I: Integer; NewColumn: TListColumn; ListItem: TListItem; ListView: TListView; begin ClientDataSet1.FileName:= 'C:\Program Files\Common Files\Borland Shared\Data\country.cds'; ClientDataSe…

وعليكم السلام ورحمة الله أتوقع بأن المشكلة تكمن بإنتهاك ذاكرة البرنامج جرب هذا الحل question_1.rar

ماهي لغة البرمجة التي تستخدمومنها؟ Delphi & Pascal ماهي الطرق التي ساعدتك على التطور في هذه اللغة؟ قراءة الكتب والمقالات والإطلاع على البرامج مفتوحة المصدر وجوجل ماهي اهم الكتب التي افادتك في لغة البرمجة التي تستخدمها؟ Mastring Delphi 7 هل عملك الان في البرمجه…

مثلما قال الأخ محمد with Image1.Picture.Bitmap.Canvas do begin Font.Color := clwhite; Brush.Style := bsclear; Font.Size := 13; TextOut(10, 10, 'Transparent!!'); end;

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

باستخدتم ShellExecute /index.ph...48713&st=10

أنا أستخدم Linux للمرة الأول وبعد تنصيبه حاولت تعريف كارت الصوت كما هو موضح بالسي دي الحاص به هناك ملف نصي يشرح الخطوات طبعا برنامج الكرت هو Realtek ويختوي على مجلد خاص ب Linux من فك الضغط حتى إستبدال الملف ولكن لم تنجح المسألة الخطوات هي Step 1. Unzip source …

ما أحاول فهمه لماذا يصر الجميع على عدم الخروج من بوتقة قواعد البيانات ربما لا يحق لي الحديث كثيرا فأنا حديث العهد بالكومبيوتر سنتين لا أكثر ولكن منذ أن حاولت دخول عالم البرمجة شاهدت ألاف المواضيع التي تتحدث عن قواعد البيانات أما غيرها فما ندر لا أجمل الجميع ول…

أخي الكريم كفكرة أنشاء مصفوفتين type TMyArray = array of Integer; var MyArray1 : TMyArray; MyArray2 : TMyArray; ثم قم بتحديد طول عناصر كل مصفوفة بمايقابلها من عدد عناصر كل مجموعة مثلا لنفرض 6 SetLength(MyArray, 6); MyArray1[1]:=1; MyArray1[2]:=2; MyArray1[3]:=…

هنا موضوعان في المنتدى /index.php?showtopic=169672 الثاني يحتوي على مثال /index.php?showtopic=169672 Make_Self_Extract_file /index.php?showtopic=123462 أيضا عملFSX للأخ محمد عبد العزيز /index.ph...ic=74734&hl = مواضيع مفيدة إن شاء الله فيها الفائدة

بالنسبة للسؤال الأول المنهج WriteComponent ل Stream يحفظ خصائص الكائن ولكن بصيغة ثنائية Binary ولتحويله إلى نص ObjectBinaryToText والعكس للقراءة var mStream: TMemoryStream; sStream: TStringStream; S, S1: String; begin mStream:= TMemoryStream.Create; mStream.Wr…

مشكور على نشاطك أخي Delphawi

يمكنك إستخدام إستخدام الخاصية CaretPos لتحديد موقع المؤشر عموديا وأفقيا CaretPos.X CaretPos.Y ومن ثم تعيد ضبط المؤشر للمكان الذي تريد أذكر أنني فعلتها ولكن لم أعد أذكر كيف أعدت ضبط المؤشر ممكن كان بإستخدام SendMessage سأحاول لعلي أجد ذلك

http://support.microsoft.com/kb/935280/

المشاركة هنا /index.ph...59&hl=Vista

السؤال الأول هناك أخي أكثر من إصدارة للدلفي7 Personal هدفها الوافدين الجدد لدلفي وليس المطورين ولا تدعم برمجة قواعد البيانات ولا أية ميزة متقدمة لدلفي وهناك Professional Studio , Enterprise Studio , Architect Studio ولكل منها مستوا هذا كود يقوم بالبحث عن نص وي…

يمكن إضافة المكون سوا كان pas أو dcu وما عليك هو أن تفتح الحزمة من الدلفي ثم بعد ذلك إضغط Add للإضافة و Remove لحذف مكون منصب للإضافة بعد ضغط Add يظهر صندوق حوار ومن التبويب Add Unit إنقر على زر الإستعراض Browse حدد الوحدة ثم إفتحها الأسطر الموجودة تشير إلى ال…

سأعمل على ذلك

مجرد رأي وبطريقة Delphi

أخي محمد كنت قد تحدثت عن شكل مرئي يتحرك بتقدم الملف وحاولت تقليد ذلك في JetAudio إنظر إليه وإذا أعجبك أطوره ليكون جيدا طبعا أنا لم أجعله مكون يعني تجريبه ليس بحاجة لتنصيب VPanel.rar