У меня есть TreeView и 4 четыре кнопки Button1, Button2, Button3, Button4. В TreeView есть такой список
Каталог
............Имя 1
............Имя 2
............Имя 3
............Имя 4
Мне необходимо при нажатии на Button1 что бы фокус падал на "Имя 1", при нажатии на Button2, фокус падал на "Имя 2". Неповерите, но на этом меня замкнуло просто - 2 часа просидел, так и не понял. Черт подери как говориться - требуется просветление. Скиньте примерчик как это сделать?

Код

TreeView1.Select(); //-----------------------// procedure Select(const Nodes: array of TTreeNode); overload; virtual; procedure Select(Nodes: TList); overload; virtual; procedure Select(Node: TTreeNode; ShiftState: TShiftState = []); overload; virtual;

Добавлено @ 10:29

можно выделять жырным
нашел в DW6

Код

uses  CommCtrl; procedure SetNodeBoldState(Node: TTreeNode; Value: Boolean); var  TVItem: TTVItem; begin  if not Assigned(Node) then Exit;  with TVItem do  begin    mask := TVIF_STATE or TVIF_HANDLE;    hItem := Node.ItemId;    stateMask := TVIS_BOLD;    if Value then state := TVIS_BOLD      else        state := 0;    TreeView_SetItem(Node.Handle, TVItem);  end; end; // Example: Make the first node bold. // Beispiel: Erster Eintrag fett machen. procedure TForm1.Button1Click(Sender: TObject); begin  SetNodeBoldState(TreeView1.Items[0], True); end;

Вот, что вышло господа!

unit Unit1;

interface

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

type
TForm1 = class(TForm)
TreeView1: TTreeView;
Button1: TButton;
Button2: TButton;
Button3: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
i : Integer; // Поставить в TreeView1 свойство HideSelection = False
// если false, то в дереве выделенный элемент будет виден даже если
// фокус ввода находится у другого контрола.

begin
for i :=0 to TreeView1.Items.Count-1 do
if TreeView1.Items.Item[i].Text = 'Имя 1' then
TreeView1.Selected := TreeView1.Items.Item[i];
end;

procedure TForm1.Button2Click(Sender: TObject);
var
i : Integer; // Поставить в TreeView1 свойство HideSelection = False
// если false, то в дереве выделенный элемент будет виден даже если
// фокус ввода находится у другого контрола.
begin
for i :=0 to TreeView1.Items.Count-1 do
if TreeView1.Items.Item[i].Text = 'Имя 2' then
TreeView1.Selected := TreeView1.Items.Item[i];
end;

end.


Может кто знает как это сделать подругому, буду рад!

А просто так не поможет?

Код

procedure TForm1.Button1Click(Sender: TObject); begin  TreeView1.Selected := TreeView1.Items.Item[1]; end; procedure TForm1.Button2Click(Sender: TObject); begin  TreeView1.Selected := TreeView1.Items.Item[2]; end;

Итемы, как водиться, начинаются с 0, это "Каталог" в твоем случае.

Это конечно все правильно, но если ветки начать перемещать, то по мойму будит белеберда? Разве не так?