TAdvStrinGrid mit ComboBox mehrere Spalten füllen

[zeras]

Vielleicht so, wie in der Hilfe beschrieben? Oder verstehe ich da was falsch?

Delphi-Quellcode:

procedure TForm15.gridGetEditorProp(Sender: TObject; ACol, ARow: Integer;
  AEditLink: TEditLink);
begin
  case ACol of
    1:begin
        grid.ClearComboString;
        grid.AddComboString('Berlin');
        grid.AddComboString('Paris');
        grid.AddComboString('London');
        grid.AddComboString('New York');
      end;
    2:begin
        grid.ClearComboString;
        grid.AddComboString('Germany');
        grid.AddComboString('France');
        grid.AddComboString('United Kingdom');
        grid.AddComboString('United States');
      end;
   end;
end;

procedure TForm15.gridGetEditorType(Sender: TObject; ACol, ARow: Integer;
  var AEditor: TEditorType);
begin
  case ACol of
  1: AEditor := edComboList;
  2: AEditor := edComboList;
  end;
end;