سؤال عن dbgrid من جديد

procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
  Field: TField; State: TGridDrawState);
begin
If gdFocused in State then
with (Sender as TDBGrid).Canvas do
begin

Brush.Color := clRed;
FillRect(Rect);
TextOut(Rect.Left, Rect.Top, Field.AsString);

end;

end;

end.

شكرا لك أخ سيف لكن ما اريده تلوين كافة عناصر السجل أي السطر بكامله

و مرة اخرى شكرا لك

DBGrid1.Options := DBGrid1.Options + [dgRowSelect];

شكرا لك أخي العزيز

اخواني السلام عليكم

dbgrid مرتبط بجدول وهذا الجدول فيه سجلات اريد انتقل من سجل الى سجل اخر عن طريق مفتاح الادخال على حقل معين بحيث انني اذا وضعت المؤشر على حقل اخر لا يقبل الا هذا الحقل ارجو مساعدتي ولكم الشكر..

كيف يمكن ان يظهر فى عامود محدد من الاعمده فى DBGrid

بعد اظهار نتيحه البخث

اذا كان رقم 1 = السبت

واذا كان رقم 2= الاحد

واذا كان رقم 3= الاثنين ....و هكذا

وجت بعد البحث موضوع يتكلم عن تغير قيمه المعروض و جربته ولم ينحج

ttp://www.arabteam2000-forum.com/index.php?showtopic=4549&hl=

select Decode(ID_NO,0,'+QuotedStr('السبت')+',1,'+QuotedStr('الاحد')+',2,'+QuotedStr('الاثنين')+')  from TabelName

استخدم DeCode

http://www.akadia.com/services/ora_decode.html

http://www.adp-gmbh.ch/blog/2005/december/28.html

ممكن كتابه الكود مع

IBQuery1.SQL.Clear;

IBQuery1.SQL.Add('select * from CUSTOMERS');

IBQuery1.SQL.Add('where ' );

IBQuery1.SQL.Add(' CUS_TYPE = 0 ') ;

IBQuery1.Active:= true;