Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.15;
Скачать: [xml.tar.bz2];




Вниз

Помогите! Событие 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 и все работает отлично. В каких я пока не понял :((.




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.15;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.73 MB
Время: 0.037 c
1-46300           Martyn                2002-04-02 11:27  2002.04.15  
Вопрос по печати Bitmap в Delphi


1-46407           Beginner              2002-03-30 15:44  2002.04.15  
Не знаю технологии


1-46357           W.I.M.F.              2002-04-04 13:40  2002.04.15  
Где и как написать DLL файлы?


3-46292           ol                    2002-03-26 12:50  2002.04.15  
Как в IB зделать select на select


4-46544           Romul                 2002-02-14 12:14  2002.04.15  
Как проверить свернуто ли окно