Глюки при создании узда в TreeView...

← →
Mishenka (2003-06-27 23:50) [0]

Создаю новый узел в TreeView (программным путём), потом произвожу запрос имени узла методом EditText.
После этого если после ввода имени ввести Enter, то почему-то создаётся ещё один узел и запрашивается его имя. Таким оразом почему-то создаются два узла (после второго Enter"а больше ничего не создаётся), при этом если не нажимать Enter, а просто мышкой перевести фокус ввода, то всё нормально (тобишь второй узел не создаётся). В чём причина глюка?

← →
Ученик © (2003-06-28 00:16) [1]

procedure TForm1.Button3Click(Sender: TObject);
begin
TreeView1.SetFocus;
with TreeView1.Items.AddChild(nil, "") do begin
Selected := True;
EditText
end
end;

← →
Mishenka (2003-06-28 03:11) [2]

Ну так у меня примерно так и есть. И глюк тоже :(((

← →
Юрий Зотов © (2003-06-28 03:44) [3]

> Mishenka (27.06.03 23:50)

Похоже, Ваш код просто отрабатывает дважды (проверьте под отладчиком). В связи с этим желательно бы видеть сам код и знать, к какому событию он прицеплен.

← →
Mishenka (2003-06-28 03:58) [4]

Yes!!! Да действительно TreeView1.SetFocus помогло! Ура!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Глюки при создании узда в TreeView... Найти похожие ветки