Форум: "Основная";
Текущий архив: 2002.04.15;
Скачать: [xml.tar.bz2];
ВнизПомогите! Событие OnExit вызывается 2 раза!! Найти похожие ветки
← →
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-компоненты тоже.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.04.15;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.004 c