Hallo zusammen
ich bin gerade dabei mit einem VirtuelStringTree zu tüfteln.
ich möchte in einer Zelle eine ComboBox darstellen, aber die ComboBox wird immer
nur oben links dargestellt.
Mein Ziel:
Bei Click auf eine Zelle soll die ComboBox dargestellt werden und nach verlassen der
Zelle wird nur ein normaler String angezeigt.
hat jemand von Euch eine Ahnung, wie man soetwas macht?
dieser Quellcode stellt eine Combobox oben links dar.
Delphi-Quellcode:
procedure TForm1.VSTGetText(Sender: TBaseVirtualTree; Node: PVirtualNode;
Column: TColumnIndex; TextType: TVSTTextType; var CellText: WideString);
var Data : PTreeData;
FEdit: TWinControl; // One of the property editor classes.
begin
Data := VST.GetNodeData(Node);
case Column of
0 : CellText := Data.FCaption;
1 : CellText := Data.FWert ;
end;
end;
if column = 1 then begin
FEdit := TComboBox.Create(nil);
with FEdit as TComboBox do
begin
Visible := true;
Parent := vst;
Text := 'hallo';
end;
end;
mfg edmu