Valeur du combobox dans DBGrid
Bonjour,
j'ai placé un comboBox dans un BDGrid avec le code qui suit.
Ce comboBox possede 3 items (tjrs les memes).
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
| procedure TForm5.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if (gdFocused in State) then
begin
with ComboBox1 do
begin
Left := Rect.Left + DBGrid1.Left + 1;
Top := Rect.Top + DBGrid1.Top + 1;
Width := Rect.Right - Rect.Left;
Height := Rect.Bottom - (Rect.Top+1);
Visible := True;
end;
end
end; |
Lorsque je clique dans une celule du DBGrid, le comboBox apparait bien mais le problème est le suivant:
Comment faire pour que après avoir cliqué sur un item du comboBox sa valeur reste dans la celule du DBGid ?
André
