2

ドキュメントに記載されているプロセスを理解できません。イベントを使用すると書かれています：

procedure TForm1.VSTGetText(Sender: TBaseVirtualTree; Node: PVirtualNode;
                Column: Integer; TextType: TVSTTextType; var CellText: WideString);
var
    Data: PTreeData;
begin
   Data:=VST.GetNodeData(Node);
   CellText := Data^.FCaption;
end;

それ、どうやったら出来るの？このように再宣言することはできません。ツリーリストをダブルクリックするOnGetTextEventと、「プロパティとメソッドに互換性がありません」という例外がスローされます。

4

2 に答える 2

3

DelphiとVirtualTreeviewのバージョンについては言及していませんが、パラメータが原因であると思います。UnicodeStringがDelphiのデフォルトの文字列型になった後は、この型になっCellText: WideStringているはずです。stringIOWはそれをに変更します

procedure TForm1.VSTGetText(Sender: TBaseVirtualTree; Node: PVirtualNode;
          Column: Integer; TextType: TVSTTextType; var CellText: string);
于 2012-03-02T14:55:53.207 に答える
0

私のプロジェクトに何か問題がありました。何がわからないのか、再現しました。これで、GetTextイベントが正しく機能するようになりました。上記の私のコードは機能します。

于 2012-03-05T08:25:32.007 に答える