Discussion :

[lila23]

bonjour à tous voila jaimerais j'ai sur une de mes formes un dbgrid et un dbnavigator j'aimerais que quand je clik pour visualiser l'élément suivant cela se voir dans mes edits j'ai put le faire pour tout les éléments sauf dans les combobox le code est le suivant:

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
 
procedure TForm3.DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
var i,j:integer;
begin
for i:=1 to dbgrid1.Columns.Count do
begin
j:=i;
(Form3.FindComponent('Edit' + IntToStr(i)) as TEdit).Text:= dbgrid1.DataSource.DataSet.Fields.Fields[i-1].Text;
if (j=4) then
begin
maskedit1.Visible:=false;
edit4.Visible:=true;
(Form3.FindComponent('Edit' + IntToStr(j)) as TEdit).Text:= dbgrid1.DataSource.DataSet.Fields.Fields[j-1].Text;
end;
if (j=7) then
begin
maskedit2.Visible:=false;
edit7.Visible:=true;
(Form3.FindComponent('Edit' + IntToStr(j)) as TEdit).Text:= dbgrid1.DataSource.DataSet.Fields.Fields[j-1].Text;
end;
if (j=8) then
begin
maskedit3.Visible:=false;
edit8.Visible:=true;
(Form3.FindComponent('Edit' + IntToStr(j)) as TEdit).Text:= dbgrid1.DataSource.DataSet.Fields.Fields[j-1].Text;
end;
if (j=12) then
begin
maskedit5.Visible:=false;
edit12.Visible:=true;
(Form3.FindComponent('Edit' + IntToStr(j)) as TEdit).Text:= dbgrid1.DataSource.DataSet.Fields.Fields[j-1].Text;
end;
if (j=13) then
begin
maskedit4.Visible:=false;
edit13.Visible:=true;
(Form3.FindComponent('Edit' + IntToStr(j)) as TEdit).Text:= dbgrid1.DataSource.DataSet.Fields.Fields[j-1].Text;
end;
end;
if(j=10) then (form3.FindComponent('ComboBox' + Inttostr(1)) as TComboBox).Items.Values[0]:=dbgrid1.DataSource.DataSet.Fields.Fields[j-1].Text; // ca c'est ce que j'ai essayé pr le combobox mais ca marche pas
end;

merci pour votre aide

[shell13010]

j'ai pas tres bien compris mais si tu veux afficher se qu'il y a dans le combobox

c'est tres simple :

Code :

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

Edit1.Text:=ComboBox1.Text;