بسم الله الرحمن الرحيم
إخواني الأعزاء.... كيف يمكن حذف سطر من الـ stringgrid, علماً أنني جربت استخدام الإجراء delete التابع للخاصة rows غير
أنه لم ينجح وظهر اعتراض, وعند مراجعة الـ help تبين أنه يظهر اعتراضاً دوماً....
جربت الإجراء clear ولكنه حول خلايا السطر إلى سلاسل فارغة دون أن يقوم بحذف السطر...
أرجو المساعدة, وجزاكم الله كل خير....
المال في الغربة وطن والفقر في الوطن غربة
السلام عليكم
يمكن تحويل Row الأخير إلى ما قبله
وتكرر العملية حتى تصل للسطر المراد حذفه
حل أخر:
type DStringGrid = class(TCustomGrid); procedure TForm1.BitBtn1Click(Sender: TObject); begin DStringGrid(StringGrid1).DeleteRow(0); end;
"First they ignore you, then they laugh at you, then they attack you, then you win"
===
اقتباسحُكَّامُـنَا إِنْ تَصَـدّوا لِلْحِمَــى اقْتَحَمُـوا ***** وَإِنْ تَصَدَّى لَـهُ المُسْتَعْمِـرُ انْسَحَبُـوا
هُمْ يَفْرشـُونَ لِجَيْـشِ الغَــزْوِ أَعْيُنَـهُـمْ ***** وَيَدَّعُــونَ وُثُـوبَـاً قَـبْـلَ أَنْ يَثِـبُــوا
الحَاكِمُـونَ و«وَاشُنْـطُـنْ» حُكُومَتُـهُـمْ ***** وَاللامِعُــونَ وَمَـا شَعَّـوا وَلا غَرَبُــوا
القَاتِلُـــونَ نُبُــوغَ الشَّـعْــبِ تَرْضِـيَـــةً ***** لِلْمُعْتَدِيــنَ وَمَـا أَجْـدَتْـهُـمُ الـقُــرَبُ
لَهُمْ شُمُـوخُ «المُثَنَّـى» ظَاهِـرَاً وَلَهُـمْ ***** هَـوَىً إِلَـى بَابَـك الخَرْمِـيّ يُنْتَسَـبُ
البردوني "أبو تمام وعروبة اليوم" 1971
===
اقتباسعبيد الهوى يحكمون البـلاد ***** ويحكمهــم كلّهـــم درهــــــمو تقتـادهـم شهـوة لا تنــام ***** وهـــم فـي جـهالتهــم نــــوّم
ففــي كـــلّ ناحيــة ظـالـــم ***** غبــــــيّ يسـلـّطــــه أظلـــم
أيا من شبعتم على جوعــنا ***** وجـــوع بنينـا ألـم تتخمـــوا ؟
ألم تفهموا غضبة الكادحين ***** على الظلـم ؟ لا بدّ أن تفهموا
البردوني "نحن و الحاكمون "
شكراً للأخوة الأعزاء على المساعدة....
ما هو السبيل الذي أستطيع من خلاله جعل النص في منتصف الخلية في الـ stringgrid, حيث أنني بحثت في مخلتف الـ options
لعائدة لها ولم أتمكن من ذلك....
أرجو الإفادة, وشكراً جزيلاً لكم مرة أخرى....
المال في الغربة وطن والفقر في الوطن غربة
اقتباسجعل النص في منتصف الخلية
هذا ما يدعى Text Alignment ...
نعلم أن الدالة الخاصة بذلك هي SetTextAlign ...
راجع
http://msdn.microsoft.com/library/en-us/gd....asp?frame=true
اما ان نحاول بانفسنا عمل ذلك فان لم نستطع فانه اصبح بامكاننا البحث في google لاننا نعلم الطريقة التي سنبحث بها
مثلا delphi stringgrid "text alignment"
أو delphi stringgrid settextalign
http://www.google.com/search?hl=en&q=delph...xt+alignment%22
وسنحصل على نتائج منها
http://www.efg2.com/Lab/Library/Delphi/Strings/index.html
او نبحث في google group وسنجد من وضع أسئلة مشابهة ..
لك الخيار في المحاولة بنفسك أو الاطلاع على الحلول المباشرة ...
تحياتي
"First they ignore you, then they laugh at you, then they attack you, then you win"
===
اقتباسحُكَّامُـنَا إِنْ تَصَـدّوا لِلْحِمَــى اقْتَحَمُـوا ***** وَإِنْ تَصَدَّى لَـهُ المُسْتَعْمِـرُ انْسَحَبُـوا
هُمْ يَفْرشـُونَ لِجَيْـشِ الغَــزْوِ أَعْيُنَـهُـمْ ***** وَيَدَّعُــونَ وُثُـوبَـاً قَـبْـلَ أَنْ يَثِـبُــوا
الحَاكِمُـونَ و«وَاشُنْـطُـنْ» حُكُومَتُـهُـمْ ***** وَاللامِعُــونَ وَمَـا شَعَّـوا وَلا غَرَبُــوا
القَاتِلُـــونَ نُبُــوغَ الشَّـعْــبِ تَرْضِـيَـــةً ***** لِلْمُعْتَدِيــنَ وَمَـا أَجْـدَتْـهُـمُ الـقُــرَبُ
لَهُمْ شُمُـوخُ «المُثَنَّـى» ظَاهِـرَاً وَلَهُـمْ ***** هَـوَىً إِلَـى بَابَـك الخَرْمِـيّ يُنْتَسَـبُ
البردوني "أبو تمام وعروبة اليوم" 1971
===
اقتباسعبيد الهوى يحكمون البـلاد ***** ويحكمهــم كلّهـــم درهــــــمو تقتـادهـم شهـوة لا تنــام ***** وهـــم فـي جـهالتهــم نــــوّم
ففــي كـــلّ ناحيــة ظـالـــم ***** غبــــــيّ يسـلـّطــــه أظلـــم
أيا من شبعتم على جوعــنا ***** وجـــوع بنينـا ألـم تتخمـــوا ؟
ألم تفهموا غضبة الكادحين ***** على الظلـم ؟ لا بدّ أن تفهموا
البردوني "نحن و الحاكمون "
هذا الموضوع مغلق.