Форум: "Основная";
Текущий архив: 2006.08.13;
Скачать: [xml.tar.bz2];
ВнизПроблема с редактированием узлов 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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.052 c