Форум: "Начинающим";
Текущий архив: 2018.03.04;
Скачать: [xml.tar.bz2];

Вниз

TreeView мультиселект   Найти похожие ветки 

← →
Валя   (2016-03-19 13:09) [0]

Как программно выделить несколько нужных узлов?
Так не работает:
unit Unit1;

interface

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

type
 TForm1 = class(TForm)
   TreeView1: TTreeView;
   SpeedButton1: TSpeedButton;
   procedure SpeedButton1Click(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.SpeedButton1Click(Sender: TObject);
var
  First, Second: TTreeNode;
begin
  First := TreeView1.Items.Add(nil, "First");
  Second := TreeView1.Items.Add(nil, "Second");

  TreeView1.MultiSelect := True;
  First.Selected := True;
  Second.Selected := True;
end;

end.

---

← →
Игорь Шевченко ©   (2016-03-19 15:03) [1]

TreeView1.Select([First,Second])

---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2018.03.04;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.001 c