VPF::Выбор элемента TTreeView с помощью галочки

hug

Дата 31.7.2007, 12:31 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 87
Регистрация: 27.7.2007

Репутация: нет
Всего: нет

Проблема стоит в выборе элемента дерева.
Хотелось бы не просто кликом, c зажатым ctrl, shift (возможен multiselect)
А чтобы сбоку каждого элемента была доступна галочка
и соотв при установленной галке элемент выбирался.
Есть ли такая возможность у стандартного TTreeView
Или может подскажите другие варианты/классы?

Yanis

Дата 31.7.2007, 12:41 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111

Такого эффектам можно добиться от обычного TTreeView, если включить стиль TVS_CHECKBOXES.

Добавлено через 5 минут и 33 секунды

Код

unit Unit1;

interface

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

type
  TTreeView = class(ComCtrls.TTreeView)
  protected
    procedure CreateParams(var Params: TCreateParams); override;
  end;

  TForm1 = class(TForm)
    TreeView1: TTreeView;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TTreeView }

procedure TTreeView.CreateParams(var Params: TCreateParams);
//const
//  TVS_CHECKBOXES = $0100;
begin
  inherited;
  Params.Style := Params.Style or TVS_CHECKBOXES;
end;

end.

--------------------

*щёлк*

hug

Дата 31.7.2007, 13:02 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 87
Регистрация: 27.7.2007

Репутация: нет
Всего: нет

Спасибо
только почему они на Node.Selected не влияют?
как с помощью них выделять то?

Это сообщение отредактировал(а) hug - 31.7.2007, 13:06

Yanis

Дата 31.7.2007, 13:12 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111

Цитата(hug @ 31.7.2007, 14:02

)

только почему они на Node.Selected не влияют?

Кто они и на что влияют?
Если ты о том как менять состояние CheckBox-ов, то за это отвечает свойство StateIndex.

--------------------

*щёлк*

hug

Дата 31.7.2007, 13:16 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 87
Регистрация: 27.7.2007

Репутация: нет
Всего: нет

я о том как мне определить что .checked у узла дерева?

hug

Дата 31.7.2007, 13:41 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 87
Регистрация: 27.7.2007

Репутация: нет
Всего: нет

вот именно проблемка
что у меня TreeNode.StateIndex
всегда выдает -1
вне зависимости от того выделена ли она или нет

Код



procedure TForm1.Button2Click(Sender: TObject);
var
b,c : TTreeNode;
bChecked : boolean;
begin
  b:=TreeView1.Items.GetFirstNode;
  while not(b=nil) do
  begin
      if b.StateIndex=2 then
      begin
        c:=b.getFirstChild;
        while not(c=nil) do
        begin
            Memo1.Lines.Add(c.Text);
            c:=c.getNextSibling;
        end;
      end;
      c:=b.getFirstChild;
      while not(c=nil) do
      begin
           //!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
            bChecked := c.StateIndex in [2, 4];
            if bChecked then
                   Memo1.Lines.Add(c.Text);
            c:=c.getNextSibling;
      end;
      b:=b.getNextSibling;
end;

Yanis

Дата 31.7.2007, 13:46 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111

hug
Скачай, пожалуйста, пример и прочитай статью.
http://delphi.about.com/od/vclusing/l/aa092104a.htm

--------------------

*щёлк*

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »