1:
2:
3:
4:
5:
6:
7:

fEDCombo := tComboBox.Create(nil);
fEdCombo.Visible := False;
fEDCombo.Parent := Self;
fEDCombo.Style := csDropDownList;
fEDCombo.OnChange := ComboChange;
fEDCombo.OnCloseUp := ComboChange;
fEDCombo.OnClick := ComboChange;					

1:
2:
3:
4:
5:
6:

Procedure tMyGrid.ComboChange(Sender: tObject);
Begin
  Cells[Col, Row] := fEDCombo.Text;
  If Assigned(OnSetEditText) Then
    OnSetEditText(self, Col, Row, fEDCombo.Text);
End;					

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:

Function tMyGrid.CanEditShow: tBool;
Var
  ColData : pSimpleColumnData;
  R: TRect;
  org: TPoint;
Begin
  Result := inherited CanEditShow;
  If Result Then
    Begin      
      If (ComboBoxBedingungErfüllt) Then
        Begin
          fEDCombo.Items.Assign(NachschlageListe);
          fEDCombo.ItemIndex := fEDCombo.Items.IndexOf(Cells[Col, Row]);
          If (fEDCombo.ItemIndex = -1) Then
            fEDCombo.ItemIndex := 0;
          fActiveEditor := fEDCombo;
        End;
      If Assigned(fActiveEditor) Then
        Begin
          Perform(WM_CANCELMODE, 0, 0);
          R := CellRect(Col, Row);
          org := self.ScreenToClient(self.ClientToScreen(R.TopLeft));
          fActiveEditor.SetBounds(org.X, org.Y, R.Right-R.Left, Height);
          fActiveEditor.Show;
          fActiveEditor.BringToFront;
          Result := False;
        End;
    End;
End;