Hast du das Tutorial auch nachgemacht?
Das Ereignis scheint auch korrekt vergeben zu sein. Hm. Probier mal, in der Ereignis-Prozedur für OnGetText lediglich
Delphi-Quellcode:
procedure TKalk.vstGetText(Sender: TBaseVirtualTree; Node: PVirtualNode;
Column: TColumnIndex; TextType: TVSTTextType; var CellText: WideString);
var
Data: PTreeData;
begin
CellText := 'Test';
{
... Restlichen Code auskommentieren
}
end;
Funktioniert das? Wenn ja, stimmt etwas mit dem Aufbau deiner Verzweigungen nicht (habs mir nicht genau durchgeschaut).
Grüße,
Mario