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

Редактировани текста в TTreeView   Найти похожие ветки 

← →
Ury   (2003-09-15 19:08) [0]

Help Господа!Уже 3-ий день убиваюсь!
В приложении можно редактировать текст в ветви дерева ,
но если набранный текст по каким-то причинам меня не устраивает
(например нужно что бы это было название одно из месяцев) это можно проверить на событии OnEdited,то хотелось бы вызвать повторно метод EditText этого дерева(что бы заставить правильно набрать месяц).
Вот тут вся проблема.Не могу я его вызвать так как при получении события OnEdited дерево все еще остается редактируемым и вызов метода EditText не приводит к повторному редактированию.
Подскажите хоть ссылку.Sencs всем огромный если хоть кто нить отзавется!

---

← →
pasha_golub ©   (2003-09-15 19:18) [1]

OnEdited+F1

---

← →
clickmaker ©   (2003-09-15 19:18) [2]

Вываливай сообщения типа "Набери правильно месяц!", при потере фокуса, редактирование снимется, потом повторно вызывай EditText

---

← →
pasha_golub ©   (2003-09-15 19:19) [3]

То про что ты говорил, называется OnEditinig

---

← →
Ury   (2003-09-16 13:50) [4]

Всем спасибо!Но не работает,чирканите еще пару строк.
Сообщение вываливаю но фокус не снимается , а на OnEditing ничего не получится или я что не так далаю:

procedure TfmReestrBr.tvReestrEdited(Sender: TObject; Node: TTreeNode;
var S: String);
var
Temp:Variant;
begin
inherited;
try
temp:=S;
VarToDateTime(temp);
except
on E:EVariantError do
begin
tvReestr.ReadOnly:=False;
MessageDlg("Вы должны указать дату !", mtError, [mbOK], 0);
s:="";
node.EditText;
end;
end;
end;

---

← →
ZEE ©   (2003-09-16 13:57) [5]

OnChange ?

---

← →
pasha_golub ©   (2003-09-16 14:02) [6]

Ну ты блин даешь! :-)

procedure TfmReestrBr.tvReestrEdited(Sender: TObject; Node: TTreeNode;
var S: String);

begin
// inherited; what is?
try
StrToDateTime(S);
except
on E:EConvertError do
begin
tvReestr.ReadOnly:=False;
MessageDlg("Вы должны указать дату !", mtError, [mbOK], 0);
s:="";
node.EditText;
end;
end;
end;

---

← →
Ury   (2003-09-16 14:16) [7]

Согдасен что глупо,pasha_golub, но как подругому?
// inherited; what is? - наследую форму, но там нет ничего что бы мне могло помешать.

---

← →
Ury   (2003-09-16 14:58) [8]

Всем ,a особенно :pasha_golub,cklickmaker,ZEE - большое спасибо за проявленный интерес и помощь.Не спорю что вопрос был даже не хочется говорить ...
Нашел я из-за чего проблема и почему не мог я этого понять.
И еще раз спасибо PASHA_GOLUB за это:
// inherited; what is? - полез я туда и ...(без комментарий).
Просто первый раз этот компонент юзал.

---

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

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



Память: 0.46 MB
Время: 0.013 c