Помогите! Событие OnExit вызывается 2 раза!!

← →
semion (2002-04-02 17:14) [0]

Народ! Может кто подскажет как сделать, чтобы при выходе из контрола проверялось значение на какое-либо условие и если условие не верно, то чтобы фокус оставался на этом контроле. Проблема в том, что если обрабатывать событие OnExit и туда вставлять self.SetFocus, то при переходе на некоторые контролы (например, TRxDataEdit) это событие вызывается дважды. Как это можно побороть или может другой способ кто посоветует!

← →
Song (2002-04-02 17:35) [1]

IF условие then класс(Sender).SetFocus;

← →
semion (2002-04-03 10:42) [2]

Дело в том, что перед этим надо вывести диалог типа "поле заполнено неверное". Если вставить то, что ты предлагаешь в OnExit, то это диалог, по описанным выше причинам появится 2 раза.

← →
Anatoly Podgoretsky (2002-04-03 10:54) [3]

У тебя где то ошибка, я как раз и использую описанный тобой алгоритм, но вот это self.SetFocus нельзя.

← →
Sat7 (2002-04-03 11:10) [4]

Зачем 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-компоненты тоже.

← →
semion (2002-04-03 12:37) [5]

Упрощаем ситуацию, чтобы было проще проверять :)
Создаем пустой проект. На форму кидаем 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 12:48) [6]

А у меня один!

У меня 5-ый delphi стоит... Может в этом дело? Хотя что-то я сомневаюсь.

← →
Sat7 (2002-04-04 06:17) [7]

Ради спортивного интереса поставил дома 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, конечно). Если и так не будет работать...

← →
semion (2002-04-04 11:25) [8]

Твой вариант не помогает :(.
Я так чувствую, что проблема в 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 и все работает отлично. В каких я пока не понял :((.

Помогите! Событие OnExit вызывается 2 раза!! Найти похожие ветки