Comment avoir un DBGrid avec des Combos et Boutons

**soror** · 30/07/2007, 14h56

Salut tous le monde;

j'ai des grilles en Acces (voir fichier attaché) et je avoir pareil en Delphi
donc j'ai pensé à un DBGrid mais le problème qui se pose j'arrive pas à intégrer des Combo et des boutons au niveau des cellules de mon DBGrid

J'espère que vous avez une proposition
Merci

**content** · 30/07/2007, 15h14

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect; Field: TField; State: TGridDrawState);
begin
  if (gdFocused in State) then
  begin
    if (Field.FieldName = DBComboBox1.DataField ) then
    begin
      DBComboBox1.Left := Rect.Left + DBGrid1.Left;
      DBComboBox1.Top := Rect.Top + DBGrid1.top;
      DBComboBox1.Width := Rect.Right - Rect.Left;
      DBComboBox1.Height := Rect.Bottom - Rect.Top;
      DBComboBox1.Visible := True;
    end;
  end;
end;

Code :

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

1
2
3
4
5
6
7
procedure TForm1.DBGrid1ColExit(Sender: TObject);
begin
  If DBGrid1.SelectedField.FieldName = DBComboBox1.DataField then
    begin
      DBComboBox1.Visible := false;
    end;
end;

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char);
begin
  if (key < > chr(9)) then
  begin
    if (DBGrid1.SelectedField.FieldName =DBComboBox1.DataField) then
    begin
      DBComboBox1.SetFocus;
      SendMessage(DBComboBox1.Handle，WM_Char，word(Key)，0);
    end;
  end;
end;

**ShaiLeTroll** · 30/07/2007, 15h26

Pour le combo, tu dois pouvoir le faire via un la PickList dans le Column de la Grille, pour le bouton ... tout dépend ce qu'il faut, si c'est charger la liste, il y a des évènements en delphi qui permette de le gérer propre ... sinon faudra mettre une column sans attachement à une donnée et dessiner le bouton "Button.PaintTo(Grid.Canvas.Handle, ...)"

@Content, ajoute les balise CODE [ CODE ][ /CODE ]

**soror** · 30/07/2007, 15h44

Par contre le PickList ne me permet pas à charger mon combo automatiquement à partir de la base de données mais il faut que je charge ma liste à la main

**ShaiLeTroll** · 30/07/2007, 16h00

Ce n'est pas difficile de faire

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
with ADataSet.FieldByName('ChampAvecCombo').PickList do
begin
  BeginUpdate();
  try
    AListSet.First();
    Capacity := AListSet.RecordCount;
    while not AListSet.Eof do
    begin
      AddObject(AListSet.FieldByName('ChampLibelle').AsString, Pointer(AListSet.FieldByName('ChampReference').AsInteger);
      AListSet.Next();
    end;
  finally
    EndUpdate();
  end;
end;

Sinon, faut surcharger la TDBGrid est modifié toute la gestion du InplaceEditor pour ajouter un TDBComboLookup à place d'un Combo simple

**Cl@udius** · 30/07/2007, 16h18

Salut

Cela fait un petit bout de temps que je n'utilises plus le TDBGrid standard, mais il me semble me souvenir qu'il ajoute automatiquement un combobox dès lors qu'il s'agit d'un champ référence (ftLookup).

@+ Claudius

**Fabrice ROUXEL 1** · 30/07/2007, 16h53

bonjour

tu peux peut-être t'inspirer de cela: http://www.developpez.net/forums/sho...8&postcount=30

@+

**soror** · 30/07/2007, 16h54

salut Claudius;

j'ai pas compris c'est quoi ftloukup si c'est une propriété je l'ai pas trouvé!
j'ai aussi essayé avec l'idée de picklist mais ça marche pas
il y a Aityaha qui m'a proposé la dernière fois d'utiliser DBCtrlGrid mais il m'a pas bien expliqué,

je vois que avec vos expériences vous aurez peut être un exemple à me donner avec DBCtrlGrid qui me semble le plus adéquat

merci à vous

**anapurna** · 30/07/2007, 17h07

salut

un ftlookup est un champs reference dans le dataset

a la fin de tes champs bouton droit ajouter un champs
et ensuite tu choisie reference tu rempli les autres infos et hop le tou est joué

[edit]
pour le bouton faut forcer le buttonstyle des la propriete column du dbgrid

@+ Phil

**aityahia** · 30/07/2007, 17h08

Envoyé par Cl@udius

Salut

Cela fait un petit bout de temps que je n'utilises plus le TDBGrid standard, mais il me semble me souvenir qu'il ajoute automatiquement un combobox dès lors qu'il s'agit d'un champ référence (ftLookup).

@+ Claudius

+1 Claudius Exactement vous n'avez qu'a rajouter des champs de références et vous avez automatiquement votre DropDown dont la liste des items est issu de la table de références..
pour l'ajout des champs de référence c'est dans la FAQ
et pour avoir des bouton vous mettez BoutonStyle de la colonne voulu a cbsEllipsis et vous codez dans évènement OnEditButtonClick

**aityahia** · 30/07/2007, 17h12

@ Content

et essai de commenter un peut ton code

.

**ShaiLeTroll** · 30/07/2007, 17h48

L'exemple de la FAQ est pas mal, mais lorsque le DataSet est le Résultat d'une requête, il faut ajouter le champ par code, hors la FAQ n'explique via IDE (j'ai d'ailleurs découvert ce menu, je ne l'avais jamais utilisé ... je n'ai jamais prédéfini des DataSet ...)

Code :

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

DataSet.FieldDefs.Add('RefColumn', ftReference);

Code :

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

1
2
DataSet.FieldByName('RefColumn').LookupDataSet := ... 
DataSet.FieldByName('RefColumn').LookupKeyFields := ...

**soror** · 30/07/2007, 18h02

S'il vous plait je voir pas comment trouver nouveau champ
quand je double clik sur DataSet ça me donne l'image (voir fichier attaché) mais je clik sur quelle liste pour avoir nouveau champ??

peut être que je comprend pas vite mais veuillez me supporter SVP

**ShaiLeTroll** · 30/07/2007, 18h06

tu peux aussi mettre des image JPEG (avant MsPaint) cela sera plus pratique que des Doc Word ...

sinon, il existe aussi le menu contextuel sur le composant ... accessible via un clic droit ...