Скачать: CL | DM;

Проблема с редактированием узлов TreeView   Найти похожие ветки 

← →
DVM ©   (2006-06-27 14:03) [0]

Делаю так:

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;

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

---

← →
Loginov Dmitry ©   (2006-06-27 15:24) [1]

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

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;


---

← →
han_malign ©   (2006-06-27 15:51) [2]

> Timer1.Enabled := True;

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

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.026 c