Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.07.17;
Скачать: CL | DM;

Вниз

Пожалуйста помогите закрывается форма.........   Найти похожие ветки 

 
xxxCrazyManxxx ©   (2003-07-04 11:47) [0]

Проблема такая: из Форм1 вызывается Форм2 посредством Show
в Форм2 в Едит1:

procedure TAddFrm.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
If (Key = 13) then
begin
BitBtn3.Click ;
end;
end;

По клику на кнопке происходит обработка StoredProc1, но по ЕНТЕРу на едите происходит закрытие Форм2.

Пожалуйста помогите решить эту проблему.
Заранее благодарен!


 
Repa ©   (2003-07-04 11:52) [1]

Слухай, а поподробнее? Что за процедуры, где да как? И поройся в фокусах, может там косяк... ;))


 
Юрий Зотов ©   (2003-07-04 12:00) [2]

У BitBtn3 уберите Default.


 
xxxCrazyManxxx ©   (2003-07-04 12:10) [3]

Процедура обычный селект, с фокусами все нормально,
у BitBtn3 дефаулт убран.
Причем по клику на кнопке все нормально, а при нажатии ЕНТЕР закрывается.


 
ЮЮ ©   (2003-07-04 12:19) [4]

Может у Edit1 или у формы ещё какие обработчики срабатывают?


 
Юрий Зотов ©   (2003-07-04 12:20) [5]

> у BitBtn3 дефаулт убран

Не верю. (С) К.С. Станиславский.

И измените код:

procedure TAddFrm.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
If Key = VK_RETURN then
begin
Key := 0;
BitBtn3.Click
end;
end;




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

Текущий архив: 2003.07.17;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.013 c
1-55520
Makhanev A.S.
2003-07-03 23:06
2003.07.17
GroupBox.Visible - AV?


1-55516
Afonya
2003-07-04 16:15
2003.07.17
Перехватывание созданным компонентом событий мыши.


1-55579
Hawk2
2003-07-02 17:30
2003.07.17
Дизайн формы


14-55836
Феликс
2003-07-01 20:44
2003.07.17
Как так гарно получилось? :)


14-55805
Мазут Береговой
2003-06-30 10:54
2003.07.17
К спецам по играм