Как очистить Treeview?
Как очистить Treeview? Например для ListBox есть Clear:
ListBox.Clear;
А для Treeview я что то такого не нашел.
ListBox.Clear;
А для Treeview я что то такого не нашел.
У TTreeView есть ноды. Их и надо чистить.
TTreeView(Sender).Items.Clear;
TTreeView(Sender).Items.Clear;
Макрос TreeView_DeleteAllItems
но лучше прислушайся к mfender ибо мой совет очень плохой (поспешил) :)
но лучше прислушайся к mfender ибо мой совет очень плохой (поспешил) :)
Пытаюсь вот так:
procedure TForm1.Button1Click(Sender: TObject);
var qwerty:hwnd;
begin
qwerty:=TreeView1.Handle;
SendMessage(qwerty, TVM_DELETEITEM, 0, Longint(TVI_ROOT));
end;
но что то не выходит. Пишет что не знает что такое TVM_DELETEITEM и TVI_ROOT. ShellApi вроде подключил.
procedure TForm1.Button1Click(Sender: TObject);
var qwerty:hwnd;
begin
qwerty:=TreeView1.Handle;
SendMessage(qwerty, TVM_DELETEITEM, 0, Longint(TVI_ROOT));
end;
но что то не выходит. Пишет что не знает что такое TVM_DELETEITEM и TVI_ROOT. ShellApi вроде подключил.
mr_smit оставь ты это, тебе mfender совершенно правильно написал как надо делать, попробуй и не усложняй себе жизнь.
Цитата: kosfiz
mr_smit оставь ты это, тебе mfender совершенно правильно написал как надо делать, попробуй и не усложняй себе жизнь.
2 mr_smit
Я же написал, что погорячился я :) Для TTreeView это более чем неправильно - это армагеддон :D Думаю объяснять почему не стоит :)
Если бы ты создавал собственную обертку к виндоус контролу или создавал его без компонентов, то мой совет был бы правильным.