الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

How To lighting Selected Row in DBGrid ?.

مغلق
بدأه wdusif في 2 ديسمبر 2006 · 7 رد · 923 مشاهدة · في لغة Delphi
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

الاخوة الاعزاء

تحية طيبة

كيف يمكنني عمل هيليت علي الـRow الذى يقف عليه المواشر في الـDBGrid عند اجراء البحث بالكود التالى :

IF edEmpSearch.Text <> '' Then
Begin
ADOQuery1.Open;
ADOQuery1.Locate('Employee_Name',edEmpSearch.Text,[loPartialKey]);

End;

ولكم من الاحترام والتقدير

محمد

.jpg

______________________________________________________________________________

[وسط]9ber.gif

ip2location.png

______________________________________________________________________________

(فَقُلْتُ اسْتَغْفِرُوا رَبَّكُمْ إِنَّهُ كَانَ غَفَّارًا (10) يُرْسِلِ السَّمَاء عَلَيْكُم مِّدْرَارًا (11) وَيُمْدِدْكُمْ بِأَمْوَالٍ وَبَنِينَ وَيَجْعَل لَّكُمْ جَنَّاتٍ وَيَجْعَل لَّكُمْ أَنْهَارًا (12)

مَّا لَكُمْ لَا تَرْجُونَ لِلَّهِ وَقَارًا (13) وَقَدْ خَلَقَكُمْ أَطْوَارًا (14))

* سورة نوح[/وسط]

من اجمل المواقع على الاطلاق

القرآن الكريم

#2

اذا كان ال DbGrid موصول مع Datasource و ال Datasource هذه موصولة مع ال ADOQuery1 التي انت وضعتها سوف يقوم بتعليم

السجل مباشرة بدون اي شيئ

على فكرة لا داعي لفتح ال Query في كل مرة عند البحث, انما يكفي ان تفتحها مرة واحدة هذا طبعا اذا لم تضع SQL اثناء البحث فيها ,,

اي بما انك تصلها مع ال dbGrid لا داعي لفتحها عند كل مرة

كطريقة افضل الان للبحث من Locate في هذه الحالة استخدم Filter ابحث عنها في المنتدى سوف تجد الكثير

رب اجعلني مقيم الصلاة ومن ذريتي ربنا وتقبل دعاء.

لا تنسى: "العقل مثل العضلة كلما استخدمته أكثر كلما ازدادت قوته"

#3

الاخ waeldalol

تحية طيبة

اشكرك علي الرد , اخ waeldalol اريد ان اعرف كيف يمكن اغير لون السجل الذي يقف فيه المواشر الى لون اخر في الـDBGrid

.jpg

______________________________________________________________________________

[وسط]9ber.gif

ip2location.png

______________________________________________________________________________

(فَقُلْتُ اسْتَغْفِرُوا رَبَّكُمْ إِنَّهُ كَانَ غَفَّارًا (10) يُرْسِلِ السَّمَاء عَلَيْكُم مِّدْرَارًا (11) وَيُمْدِدْكُمْ بِأَمْوَالٍ وَبَنِينَ وَيَجْعَل لَّكُمْ جَنَّاتٍ وَيَجْعَل لَّكُمْ أَنْهَارًا (12)

مَّا لَكُمْ لَا تَرْجُونَ لِلَّهِ وَقَارًا (13) وَقَدْ خَلَقَكُمْ أَطْوَارًا (14))

* سورة نوح[/وسط]

من اجمل المواقع على الاطلاق

القرآن الكريم

#4 
خ waeldalol اريد ان اعرف كيف يمكن اغير لون السجل الذي يقف فيه المواشر الى لون اخر في الـDBGrid

قم بالاطلاع على المشاركات التالية:

تلوين dbgrid, dbgrid

StringGrid, كيف يمكنـــ........؟

رب اجعلني مقيم الصلاة ومن ذريتي ربنا وتقبل دعاء.

لا تنسى: "العقل مثل العضلة كلما استخدمته أكثر كلما ازدادت قوته"

#5

اخى العزيز لم استطع حل المشكلة بعد

.jpg

______________________________________________________________________________

[وسط]9ber.gif

ip2location.png

______________________________________________________________________________

(فَقُلْتُ اسْتَغْفِرُوا رَبَّكُمْ إِنَّهُ كَانَ غَفَّارًا (10) يُرْسِلِ السَّمَاء عَلَيْكُم مِّدْرَارًا (11) وَيُمْدِدْكُمْ بِأَمْوَالٍ وَبَنِينَ وَيَجْعَل لَّكُمْ جَنَّاتٍ وَيَجْعَل لَّكُمْ أَنْهَارًا (12)

مَّا لَكُمْ لَا تَرْجُونَ لِلَّهِ وَقَارًا (13) وَقَدْ خَلَقَكُمْ أَطْوَارًا (14))

* سورة نوح[/وسط]

من اجمل المواقع على الاطلاق

القرآن الكريم

#6

http://bdn.borland.com/article/26945

ليس لدي دلفي في ه\ا الجهازـ لكن جرب

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if (gdSelected in State) AND (not gdFocused in State) then
begin
dbGrid1.Canvas.Brush.Color := clRed;
dbGrid1.Canvas.Font.Color := clWhite;
end
if (gdSelected in State) AND (gdFocused in State) then
else
begin
dbGrid1.Canvas.Brush.Color := clBlue;
dbGrid1.Canvas.Font.Color := clWhite;
end
else
begin
dbGrid1.Canvas.Brush.Color := clWindow;
dbGrid1.Canvas.Font.Color := clBlack;
end;
dbGrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;

قطرة الماء تـثـقب الحجر.. لا بالعنف. لكن بتكرار المحاولة

at4re.gif

منتديات الفريق العربي للهندسة العكسية 不喜欢的勿入! www.at4re.com

#7

تعديل بسيط, لا داعي ل

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  if (gdSelected in State) then
  begin
	dbGrid1.Canvas.Brush.Color := clBlue;
	dbGrid1.Canvas.Font.Color := clWhite;
  end
  else
  begin
	dbGrid1.Canvas.Brush.Color := clWindow;
	dbGrid1.Canvas.Font.Color := clBlack;
  end;
  dbGrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;

هذا سوف يقوم بتلوين الخلية المحددة باللون الازرق , الان اذا اردت ان تلون كامل الصف قم بتحديد الخاصية

dgRowselect = true;

رب اجعلني مقيم الصلاة ومن ذريتي ربنا وتقبل دعاء.

لا تنسى: "العقل مثل العضلة كلما استخدمته أكثر كلما ازدادت قوته"

#8

الاخوة

وائل , dj-siba استخدمت الكود وهو يعمل بصورة جيدة لكم منى جزيل الشكر

في الحقيقة الـ DBGrid بها الكثير من الاسرار التى ما ازال اجهلها ارجو ان يزيدنا الله علما

ولكم الشكر مرة ثانية ...

.jpg

______________________________________________________________________________

[وسط]9ber.gif

ip2location.png

______________________________________________________________________________

(فَقُلْتُ اسْتَغْفِرُوا رَبَّكُمْ إِنَّهُ كَانَ غَفَّارًا (10) يُرْسِلِ السَّمَاء عَلَيْكُم مِّدْرَارًا (11) وَيُمْدِدْكُمْ بِأَمْوَالٍ وَبَنِينَ وَيَجْعَل لَّكُمْ جَنَّاتٍ وَيَجْعَل لَّكُمْ أَنْهَارًا (12)

مَّا لَكُمْ لَا تَرْجُونَ لِلَّهِ وَقَارًا (13) وَقَدْ خَلَقَكُمْ أَطْوَارًا (14))

* سورة نوح[/وسط]

من اجمل المواقع على الاطلاق

القرآن الكريم

هذا الموضوع مغلق.

مواضيع مشابهة