Discussion :

[rec82]

salut tout le monde , ma question est la suivante:
aprés une opération de recherche je veut que le record (enregistrement ) resultat soit coloré avec un autre coleur ,pour q'uil soit visible.
merci d'avance équipe developpez.

[Just-Soft]

Salut;

c'est un sujet qui a été déjà évoqué, et à plusieurs endroits, donc une petite recherche t'aurais conduit à ça:

http://www.developpez.net/forums/d64...-selectionnee/

si ta recherche aboutit à un résultat alors elle devient l'enregistrement en cours donc la ligne sélectionnée.

Bonne chance.

[rec82]

merci bacoup pourla réponse;j'ai lusle forum,mais ce que je veut est féfférent un peut:

j'ai une opération de rechrche ,quand le programme trouve l'enregistrement
le pointeur de dbgrid pointe au début de la ligne ,ce que je veut que au moment ou le pointeur pointe sur l'anregistrement ce dernierprend une autre couleur automatiquement.

[rec82]

voici la procedure de recherche

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
procedure TForm4.BitBtn2Click(Sender: TObject);
begin
  if datamodule6.T1.Locate('agence;t_noeud;n_noeud',vararrayof([EDIT2.text,'p',strtoint(edit4.text)]),[] ) then
  begin
  showmessage ('record found') ;
 
  end
else showmessage ('recordnot found')
 
 
end;

ce que je cherche est de coloré le récord au lieu d'afficher le messge 'record foun',merci beaucoup pour votre aide et 1000 merci groupe developpz

[SergioMaster]

salut,

déjà il y a les options de la DBGrid dgRowSelect et dgAlwaysShowselected sur lesquelles tu peux jouer et ou l'évenement OnDrawColumnCell et l'etat gdSelected .

Utilises la fonction de Recherche du forum avec un ou plusieurs de ces mots clés , comme l'a dit Kelloucheaeh ce sujet a souvent été débattu (pour obtenir des résultats différents selon les besoins)

@+

[Just-Soft]

Re;

faut bien comprendre que si ta recherche aboutit alors le curseur se met automatiquement sur la ligne en question, sauf faudrait peut-être rajouter un Refresh, mais la ligne suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If DBGrid1.SelectedRows.CurrentRowSelected

joue pleinement son rôle qui est dans ton cas l'enregistrement recherché.

Bonne chance.

[rec82]

merci beacoup ,je vai essayé puis on continue
merci autre fois.

[rec82]

croyez mois j'arrive pas à combiner la recherche et le dbgriddracolumncell
aide mois ca me casse la tete ,mon probléme est claire je pense un petit fragment de codes'ilveut plais.

[SergioMaster]

bon, essayes ceci (sans garantie, c'est tapé de mémoire sur un poste n'ayant pas Delphi), ici je ne joue que sur les options de la dbgrid . Peut-être faudra t-il mettre un DBgrid.refresh ou repaint

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
procedure TForm4.BitBtn2Click(Sender: TObject);
begin
  if datamodule6.T1.Locate('agence;t_noeud;n_noeud',vararrayof([EDIT2.text,'p',strtoint(edit4.text)]),[] ) then
  begin
      DBGrid.Options:=dbGrid.Options+[dgRowSelect,dgAlwaysShowselected ];
  end
.......
else begin 
        DBGrid.Options:=dbGrid.Options-[dgRowSelect,dgAlwaysShowselected];
showmessage('record not found');
end; 
end;

[rec82]

MERCI BEACOUP.:DsergioMster et tousl'quipe developpez.
enfin ca marche mais j'ai un tout petit question que signife lq ligne suivante:
DBGrid.Options:=dbGrid.Options+[dgRowSelect,dgAlwaysShowselected ];
surtout les options:
dgRowSelect
dgAlwaysShowselected
1OOO merci

[Andry]

MERCI BEACOUP.:DsergioMster et tousl'quipe developpez.
enfin ca marche mais j'ai un tout petit question que signife lq ligne suivante:
DBGrid.Options:=dbGrid.Options+[dgRowSelect,dgAlwaysShowselected ];
surtout les options:
dgRowSelect
dgAlwaysShowselected
1OOO merci

Salut.
Je pense que c'est dans les aides de Delphi mais grossomodo
dgRowSelect : selection de la ligne complete au lieu de la cellule
dsAlwaysShowSelected : marquer la ligne selectionnée (généralement bleu ou suivant le theme windows)

A+

[SergioMaster]

je suis très content d'apprendre que ma proposition fonctionne .

dgRowSelect,dgAlwaysShowselected sont deux valeurs d'options de la dbgrid (celles que l'on peut mettre a true ou false dans l'inspecteur d'objet de la dbgrid en 'ouvrant' '<Options>'. La seule astuce

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DBGrid.Options:=dbGrid.Options+[dgRowSelect,dgAlwaysShowselected ];

consite à savoir les ajouter ou supprimer dynamiquement

P.S. un petit tag serait bienvenu

[rec82]

salut .
il suffit d'aller dans l'ispecteur d'objet de devloppez la proprieté option
est mettre dgrowselect et dgalwaysshowselection a true;

[SergioMaster]

Oui , tout a fait , mais tu avais demandé a ce que cela soit sous condition que l'enregistrement existe . Or , si tu ne désactive/active pas l'option alors ce ne sera pas l'enregistrement demandé qui sera mis en évidence si celui-ci n'existe pas , mais le dernier en cours .

[rec82]

merci sergiMaster.
j'ai ajouté cette participation ,juste pour montré aux visiteur de site cette option ,aulieu d'écrire le code que vous m'avez donné,car dans votre premiere
réponse vous m'avez montré cette astuce mais j'ai arrivé à dicouvrir qu'aprés
merci toujour SergioMaster (et l'équipe developpez)pour les réponses rapides.