Combobox
Résolu
kalagool
Messages postés
20
Date d'inscription
lundi 28 février 2005
Statut
Membre
Dernière intervention
10 mai 2006
-
22 mars 2005 à 08:26
jmp77 Messages postés 1119 Date d'inscription lundi 4 février 2002 Statut Membre Dernière intervention 4 octobre 2006 - 22 mars 2005 à 10:15
jmp77 Messages postés 1119 Date d'inscription lundi 4 février 2002 Statut Membre Dernière intervention 4 octobre 2006 - 22 mars 2005 à 10:15
1 réponse
jmp77
Messages postés
1119
Date d'inscription
lundi 4 février 2002
Statut
Membre
Dernière intervention
4 octobre 2006
7
22 mars 2005 à 10:15
22 mars 2005 à 10:15
Hello,
Alors dans l'événement OnGetEditorType tu mets ceci :
procedure TForm1.AdvStringGrid1GetEditorType(Sender: TObject; ACol,ARow: Integer; var AEditor: TEditorType);
begin
{Pour toutes les cellules}
AEditor := edComboList;
AdvStringGrid1.ClearComboString;
AdvStringGrid1.AddComboString('Valeur 1');
AdvStringGrid1.AddComboString('Valeur 2');
AdvStringGrid1.AddComboString('Valeur 3');
{Sinon pour une cellule en particulier}
If ACol 1 and ARow 2 then
begin
AEditor := edComboList;
AdvStringGrid1.ClearComboString;
AdvStringGrid1.AddComboString('Juste cette cellule');
end;
end;
Bonne prog,
JMP77.
N'oubliez pas de cliquer sur réponse acceptée.
Alors dans l'événement OnGetEditorType tu mets ceci :
procedure TForm1.AdvStringGrid1GetEditorType(Sender: TObject; ACol,ARow: Integer; var AEditor: TEditorType);
begin
{Pour toutes les cellules}
AEditor := edComboList;
AdvStringGrid1.ClearComboString;
AdvStringGrid1.AddComboString('Valeur 1');
AdvStringGrid1.AddComboString('Valeur 2');
AdvStringGrid1.AddComboString('Valeur 3');
{Sinon pour une cellule en particulier}
If ACol 1 and ARow 2 then
begin
AEditor := edComboList;
AdvStringGrid1.ClearComboString;
AdvStringGrid1.AddComboString('Juste cette cellule');
end;
end;
Bonne prog,
JMP77.
N'oubliez pas de cliquer sur réponse acceptée.