1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
if (ACol >= StringGrid1.FixedCols) and (AROw >= StringGrid1.FixedRows)
  and (gdFocused in State) then setRect(Rect)
end;

procedure TForm1.setRect(rec: TRect);
var
r:TRect;
begin
with cb1 do begin
  CopyRect(r, rec);
  r.BottomRight := Parent.ScreenToClient(StringGrid1.ClientToScreen(r.BottomRight));
  r.TopLeft:=Parent.ScreenToClient(StringGrid1.ClientToScreen(r.TopLeft));
  SetBounds(r.Left,r.Top,r.Right-r.Left,r.Bottom-r.Top);
  BringToFront;
  end;
end;					

1:
2:

node:=vst.AddChild(nil);
    vst.Text[node,0]:= Namefilter(Data);					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure TForm1.VSTGetText(Sender: TBaseVirtualTree; Node: PVirtualNode;
  Column: TColumnIndex; TextType: TVSTTextType; var CellText: WideString);
begin
case Column of
-1,
0: CellText := Namefilter(Data); //Hier wird der String der angezeigt werden soll übergeben
2: CellText := 'test';  //Zum Testen
else CellText:='';
end;
end;					

1:

vst.OnGetText(vst,node,0,ttNormal,'Test');					

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

procedure TForm1.VSTInitNode(Sender: TBaseVirtualTree; ParentNode,       //Checkbox anzeigen lassen
  Node: PVirtualNode; var InitialStates: TVirtualNodeInitStates);
begin
if Sender.GetNodeLevel(Node) = 0 // nur oberste Ebene
then VST.CheckType[Node] := ctCheckBox;
VST.CheckState[Node] := csunCheckedNormal;
end;