Untermenü in Combobox

[Oniessen]

Hallo!

Vielen Dank für eure Hilfe!
Ich habes im Moment erst mal so gelöst:

Die entsprechende Spalte bekommt:
ButtonStyle CBSButton und die entsprechende GridButtonClick sieht so aus bzw. fängt so an:

Delphi-Quellcode:

procedure TMainForm.MyStringGridButtonClick(Sender : TObject; aCol, aRow : Integer);
var
  TopRight :TPoint;
  PopPos : Tpoint;
begin
  TopRight.X := MyStringGrid.CellRect(aCol,aRow).Right;
  TopRight.Y := MyStringGrid.CellRect(aCol,aRow).Top;
  PopPos:= MyStringGrid.ClientToScreen(TopRight);
  PopupMenu1.PopUp(PopPos.x,PopPos.y);
end;

Das ist zwar kein 100% übliches Verhalten, aber ich denke durch den kurzen Mausweg und das direkte andocken ist das ähnlich genug, das ein Anwender sich zurecht findet.

Das sieht dann so in etwa aus:
Unbenannt.png

Eine Baumansicht bzw., einen Treeview fände ich in diesem Fall übrigens nicht so toll, da mich ja weniger der Aufbau interessiert, als vielmehr die Übersichtlichkeit - also die Möglichkeit ein bestimmtes Material schneller zu finden/auszuwählen. Darum eben eher Menü->Untermenüs...

Nochmal vielen Dank für eure Hilfe,

Gruß, Oliver