| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Проблема с редактированием узлов TreeView [D7, WinXP]

DVM ©   (2006-06-27 14:03:00) 

Делаю так:

procedure TfrmMain.trvwMainEdited(Sender: TObject; Node: TTreeNode;
 var S: String);
begin
 if trim(s)='' then
   begin
     MessageBox(Handle, 'Errror', 'Error', MB_OK);
     trvwMain.SetFocus;
     Node.EndEdit(true);
     Node.EditText;
   end;
end;

Получается ерунда. Не возвращается узел в режим редактирования

---

han_malign   (2006-06-27 15:51:00) [1]

> Timer1.Enabled := True;

- может PostMessage - оно надежненй будет?

---

Loginov Dmitry   (2006-06-27 15:24:00) [2]

Попробуйте следующий изврат:

procedure TForm1.TreeView1Edited(Sender: TObject; Node: TTreeNode;
 var S: String);
begin
 if Trim(S) = '' then
 begin
   Application.MessageBox('Вы не ввели текст!', 'Ошибка!', MB_ICONWARNING);
   S := Node.Text;
   Timer1.Enabled := True;
 end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 TreeView1.SetFocus;
 TreeView1.Selected.EditText;
 Timer1.Enabled := False;
end;


---

Наверх