我按照常規做法，在TVirtualStringTree上顯示資料。但它在每個單元格中只顯示字串 "node"。誰能告訴我在這里錯過了什么？ 謝謝。
我的代碼：
type
TRecFileDirectory = record[/span]。
檔案目錄。WideString;
FileDirectoryLock: wordbool;
end;
TPRecFileDirectory = ^TRecFileDirectory;
實作; TPRecFileDirectory = ^TRecFileDirectory; 實作程式 TForm2.btn4Click（Sender: TObject）；
var
I: 整數。
NewNode: PVirtualNode;
ptrFileDir: TPRecFileDirectory。
begin
vsTree1.BeginUpdate。
for I := 0 to Length(arrFileDirectory)-1 do
begin
NewNode := vsTree1.AddChild（nil）。
ptrFileDir := vsTree1.GetNodeData(NewNode);
ptrFileDir^.FileDirectory := arrFileDirectory[I].FileDirectory;
ptrFileDir^.FileDirectoryLock := arrFileDirectory[I].FileDirectoryLock;
end。
vsTree1.EndUpdate;
btn4.caption := btn4.caption ' DONE';
end。
uj5u.com熱心網友回復：
你需要為OnGetText事件實作一個事件處理程式，從你的資料中提取要顯示的字串，取決于提供的列和節點。例如：
procedure TForm1. VSTGetText(Sender。TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType; var CellText: string);
var
MyData。TPRecFileDirectory。
begin
MyData := Node.GetData();
if Column =0 then
CellText := MyData.FileDirectory;
end;
uj5u.com熱心網友回復：
設定DefaultText屬性為空字串，例如在代碼或檢查器中
轉載請註明出處，本文鏈接：https://www.uj5u.com/qukuanlian/329634.html
標籤：