Главная страница
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.06 c
2-1153920665
UMU
2006-07-26 17:31
2006.08.13
DateTimePicker и Edit


2-1153393476
C@N
2006-07-20 15:04
2006.08.13
Клавиатурный вопрос...


2-1153981167
fedpavel
2006-07-27 10:19
2006.08.13
Qreport


2-1153731983
ps2006
2006-07-24 13:06
2006.08.13
Непростой вопрос по string


4-1145440102
GanibalLector
2006-04-19 13:48
2006.08.13
DLL в DLL(в качестве ресурса)