Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.08.13;
Скачать: 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 вся ветка

Текущий архив: 2006.08.13;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.076 c
8-1139918799
MatrixSh!t
2006-02-14 15:06
2006.08.13
OpenGL или DirectX


2-1153481890
WolfRamm
2006-07-21 15:38
2006.08.13
SQL Explorer


3-1149877246
RomanH
2006-06-09 22:20
2006.08.13
Очистить BLOB


6-1143499893
Vovanchik
2006-03-28 02:51
2006.08.13
WebBrowser и его содержимое


2-1153989869
crazy_corpse
2006-07-27 12:44
2006.08.13
Opera вместо IE