VirtualStringTree и редактирование текста ячейки

[Шульц]

Как отредактировать название выделенной ячейки?

Создаю элементы дерева следующим способом:

//Заполнение дерева версий
begin
 VTVersion.Clear;
 VersionSL.Clear;
 QEx(QFPF1,'select Nazvanie from Version.db where ID_Proga in (select ID_Proga from Prog.db where nazvanie="'+ProgCB.Text+'") order by Nazvanie',False);
 If QFPF1.RecordCount>0 then
 for i:=0 to QFPF1.RecordCount-1 do
  begin
   VersionSL.Add(QFPF1.FieldByName('Nazvanie').AsString);
   VTVersion.AddChild(nil);
   QFPF1.Next;
  end;
 end;

procedure TProgForm.VTVersionGetText(Sender: TBaseVirtualTree;
  Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType;
  var CellText: WideString);
begin
CellText := VersionSL.Strings[(Integer(Node.Index))];
end;

И еще вопрос, когда я пытаюсь обновить дерево, то есть перестроить его заноВо, выскакивает ошибка, если там выделена ячейка, если же ячейка не выделена, то перестройка идет нормально.
Вопрос в том - как снять фокус с ячеек?

[mihali4]

Как отредактировать название выделенной ячейки?

VersionSL.Selected.Text:='aaa';
или вручную...

как снять фокус с ячеек?

Сделайте так:
VersionSL.Selected:=nil;
тогда будет снято и выделение, и фокус.

У меня, правда, этого компонента в Дельфи7 нету, я просто почитал про него...

[Шульц]

Ни то, ни другое не работает, так как у свойства Selected есть параметр типа Node.

[lexaltd]

Сообщение от Шульц

Вопрос в том - как снять фокус с ячеек?

VT.ClearSelection;

А если так ?

[Шульц]

А вот так, прекрасно работает
Остался теперь другой вопрос - как изменить запись в ячейке.
Я ее выбираю, затем в едит ввожу новое название, и затем нажимаю на кнопку, и после нажатия на кнопку должна изменится запись.
Как это сделать?

[lexaltd]

Сообщение от Шульц

А вот так, прекрасно работает
Остался теперь другой вопрос - как изменить запись в ячейке.
Я ее выбираю, затем в едит ввожу новое название, и затем нажимаю на кнопку, и после нажатия на кнопку должна изменится запись.
Как это сделать?

Навскидку где-то так (при условии что детей нет)

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  VersionSL.Strings[VTVersion.FocusedNode.Index] := Edit1.Text;
  VTVersion.Invalidate;
end;

[Баламут]

Набросал примерчик по этому поводу...

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, VirtualTrees;

type
  TNodeData = record
    st1: WideString;
    st2: WideString;
  end;

  PNodeData = ^TNodeData;

type
  TForm1 = class(TForm)
    VirtualStringTree1: TVirtualStringTree;
    Button1: TButton;
    Button2: TButton;
    procedure FormCreate(Sender: TObject);
    procedure VirtualStringTree1GetText(Sender: TBaseVirtualTree;
      Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType;
      var CellText: string);
    procedure VirtualStringTree1NewText(Sender: TBaseVirtualTree;
      Node: PVirtualNode; Column: TColumnIndex; NewText: string);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    Data: PNodeData;
    Node: PVirtualNode;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  VirtualStringTree1.EditNode(VirtualStringTree1.FocusedNode, VirtualStringTree1.FocusedColumn);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  VirtualStringTree1.Header.Columns[1].Text := 'Проверка';
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  VirtualStringTree1.NodeDataSize := SizeOf(TNodeData);
  Node := VirtualStringTree1.AddChild(nil);
  Data := VirtualStringTree1.GetNodeData(Node);

  Data^.st1 := 'ПРЕВЕД';
  Data^.st2 := 'МЕДВЕД!!!';
end;

procedure TForm1.VirtualStringTree1GetText(Sender: TBaseVirtualTree;
  Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType;
  var CellText: string);

begin
  Data := Sender.GetNodeData(Node);
  case Column of
    0: CellText := Data^.st1;
    1: CellText := Data^.st2;
  end;
end;

procedure TForm1.VirtualStringTree1NewText(Sender: TBaseVirtualTree;
  Node: PVirtualNode; Column: TColumnIndex; NewText: string);
begin
  Data := Sender.GetNodeData(Node);
  case Column of
    0: Data^.st1 := NewText;
    1: Data^.st2 := NewText;
  end;
end;
end.

[Шульц]

lexaltd, спасибо, помогло.
Только одно не понятно, что делает:

VTVersion.Invalidate;

Объясните, чем занимается данная функция, а то как то пользоваться и не знать - не правильно