| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Помогите! Событие OnExit вызывается 2 раза!! [D6]
semion © (2002-04-02 17:14:00)Народ! Может кто подскажет как сделать, чтобы при выходе из контрола проверялось значение на какое-либо условие и если условие не верно, то чтобы фокус оставался на этом контроле. Проблема в том, что если обрабатывать событие OnExit и туда вставлять self.SetFocus, то при переходе на некоторые контролы (например, TRxDataEdit) это событие вызывается дважды. Как это можно побороть или может другой способ кто посоветует!
semion (2002-04-04 11:25:00) [1]Твой вариант не помогает :(.
Я так чувствую, что проблема в RX. У тебя под D6 какой порт RX стоит? Если не трудно, скинь ссылку где ты его брал.
Кстати, я посмотрел как это получается, что onExit вызывается 2 раза. И вот что получил: Сначала вызывается onExit, потом (после того как onExit отрабатывает!!) вызывается
TCustomComboEdit.MouseDown
Это происходит от того, что был щелчок мыши на другой компоненте.
В этом обработчике стоит установка Focus
Соответственно фокус переходит на него и снова вызывается мой onExit. Причем TCustomComboEdit.MouseDown выглядит таким образом:
if (FPopup <> nil)and (Button = mbLeft) then begin
if CanFocus then
SetFocus;
if not FFocused then Exit;
if FPopupVisible then PopupCloseUp(FPopup, False);
{else if (not ReadOnly or AlwaysEnable) and (not DirectInput) then
PopupDropDown(True);}
end;
inherited MouseDown(Button, Shift, X, Y);
В каких-то случаях FPopup = Nil и все работает отлично. В каких я пока не понял :((.
Sat7 (2002-04-04 06:17:00) [2]Ради спортивного интереса поставил дома 6-ой. Я не знаю, что у тебя за проблема, но в 6-ом delphi диалог тоже вызывается 1 (1!!!) раз. На все компоненты! Если у тебя все же 2 раза, попробуй так:
procedure TForm1.Edit1Exit(Sender: TObject);
begin
Edit1.OnExit:=nil;
MessageDlg("Incorrect!",mtError,[mbok],0);
TWinControl(Sender).Setfocus;
Edit1.OnExit:=Edit1Exit;
end;
(Конкретно для Edit1, конечно). Если и так не будет работать...
Sat7 (2002-04-03 12:48:00) [3]А у меня один!
У меня 5-ый delphi стоит... Может в этом дело? Хотя что-то я сомневаюсь.
semion (2002-04-03 12:37:00) [4]Упрощаем ситуацию, чтобы было проще проверять :)
Создаем пустой проект. На форму кидаем ComboBox и DateEdit (из RX)
Пишем код
procedure TMainForm.ComboBox1Exit(Sender: TObject);
begin
MessageDlg("Incorrect!",mtError,[mbok],0);
TWinControl(Sender).Setfocus;
end;
Заходим в Combobox и оттуда пытаемся выйти в DateEdit. Считаем сколько раз выводится диалог. У меня 2.
Sat7 (2002-04-03 11:10:00) [5]Зачем self.setfocus? Попробуй так:
procedure TForm1.Edit1Exit(Sender: TObject);
begin
if TEdit(Sender).Text<>"555" then
begin
MessageDlg("Incorrect!",mtError,[mbok],0);
TWinControl(Sender).Setfocus;
end;
end;
У меня работает, на все rx-компоненты тоже.
Anatoly Podgoretsky (2002-04-03 10:54:00) [6]У тебя где то ошибка, я как раз и использую описанный тобой алгоритм, но вот это self.SetFocus нельзя.
semion (2002-04-03 10:42:00) [7]Дело в том, что перед этим надо вывести диалог типа "поле заполнено неверное". Если вставить то, что ты предлагаешь в OnExit, то это диалог, по описанным выше причинам появится 2 раза.
Song (2002-04-02 17:35:00) [8]IF условие then класс(Sender).SetFocus;
| |
