Форум: "Основная";
Текущий архив: 2005.06.29;
Скачать: [xml.tar.bz2];
ВнизИспользование TreeView.Selected.MoveTo(...); Найти похожие ветки
← →
mr.Spok (2005-06-04 11:36) [0]Подскажите, как использовать функцию
MoveTo(..,..);
Мне надо в компоненте TreeView при щелчке мышью по кнопке "Переместить вверх" - переместить Item вверх,при щелчке мышью по кнопке "Переместить вниз" - переместить Item вниз.
← →
Ученик (2005-06-04 13:12) [1]
procedure TForm1.Button1Click(Sender: TObject);
begin
if TreeView1.Selected <> nil then
with TreeView1.Selected do
if GetPrevSibling <> nil then
MoveTo(GetPrevSibling, naInsert)
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
if TreeView1.Selected <> nil then
with TreeView1.Selected do
if GetNextSibling <> nil then begin
if GetNextSibling.GetNextSibling = nil then
MoveTo(Parent, naAddChild)
else
MoveTo(GetNextSibling.GetNextSibling, naInsert)
end
end;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2005.06.29;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.047 c