La sélection dans un dbGrid

merci
je vous jure que j'ai rien compris 8O
j'ai l'habitude de travailler avec sqlquery (dbexpress)
en plus , je voudrais garder mon DBGrid tel qu'il est lors de recherche (donc je n'utilise pas un filtrage)c-a-d quand je tape ce que je dois rechercher dans un Tedit, la colonne concernée de DBGrid devient noire (selectionnée) ctt

j'ai trouvé ce que je cherche dans ce forum :yaisse2:,, le lien
http://www.developpez.net/forums/d54...rid-condition/

mais, il me reste un seul problème :
lorsque je cherche un numero, tout va bien :king:, mais lorsque je veux chercher une chaine de caractère (comme un nom) :cry: :bug:
malgré j'ai fait "quotedstr" mais toujours le meme probléme
mon 2eme prb: je voudrais que la procedure DrawGRID sera appelé quand je clique sur un TButton (mais avec quels paramètres ??!)

salut

peut tu mieux formuler ta question

tu nous dit avoir trouvé la réponse dans l'autre thread
maintenant si tu nous montre ton code on pourrait peut être y voir plus clair

@+ Phil

je vous remerci infiniment de vous interesser
voici mon code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29

procedure DrawGRID(Valeur :TEdit;Const MyGrid:TDBGrid;Const State:TGridDrawState; Const Rect: TRect; DataCol: Integer; Column: TColumn); begin with MyGrid do begin if gdSelected in State then begin Canvas.Brush.Color := Couleur_De_Selection end else begin if DataSource.DataSet['nom']=Valeur.Text then Canvas.Brush.Color := Couleur_2 else Canvas.Brush.Color := Couleur_1 end; DefaultDrawColumnCell(rect,datacol,column,state); end end; procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); begin DrawGRID(edit1,DBGrid1,State,Rect,DataCol,Column) end; procedure TForm1.ChercherClick(Sender: TObject); begin dbgrid1.OnDrawColumnCell:=DBGrid1Drawcolumncell; end;

---

je voudrais bien savoir comment faire pour qu'on je clique sur le boutton "chercher" la procedure "DBGrid1Drawcolumncell" sera appelé,d'autre manière, je tape un nom dans un Tedit, et aprés que je clique sur le boutton chercher,, la recherche commence(et pas automatiquement)
mon 2eme prb: le code cherche uniquement les chaine de type entier,mais les chaine de caractère :aie:
je vous remerci d'avance

salut

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

procedure DrawGRID(Valeur :TEdit;NomChps : String ;Const MyGrid:TDBGrid;Const State:TGridDrawState; Const Rect: TRect; DataCol: Integer; Column: TColumn); begin with MyGrid do begin if gdSelected in State then begin Canvas.Brush.Color := Couleur_De_Selection end else begin if (Uppercase(DataSource.DataSet[NomChps].asString)=Uppercase(Valeur.Text)) then Canvas.Brush.Color := Couleur_2 else Canvas.Brush.Color := Couleur_1 end; DefaultDrawColumnCell(rect,datacol,column,state); end end; procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); begin DrawGRID(edit1,DBGrid1,'nom',State,Rect,DataCol,Column); end;

---

@+ Phil

malheureusement,:( toujours ne marche pas avec les chaines de caractères
il affiche ce message :"variante does not reference an automation object"
SVP, si vous savez comment faire pour le problème de click de bouton
je vous remercie d'avoir répondre

salut

??? un objet automation
ça na rien a voir avec la dbgrid ni le datasource

@+ Phil

merci bcp pour votre reponse
je pense que mon problème n'est pas avec la lecture de la colonne 'nom' mais la chaine de caractère entier qui est dans le Tedit
j'ai utilisé ce code

Code:

---

1 2 3 4 5 6 7

procedure TForm1.Button1Click(Sender: TObject); begin   datasource1.DataSet.Locate('nom',edit1.Text,[loPartialKey]); dbgrid1.SetFocus;   end;

---

il est bien marché :yaisse2:
mais ,il existe un petit prb:s'il ya deux ligne ont le meme "nom" par exemple
1 jean
2 jean
comment faire pour qu'il pointe sur la première pour le premier clique de boutton et sur la 2eme pour le 2eme clique
et merci d'avance