Главная страница
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.014 c
6-55681
Adventure
2003-05-12 10:59
2003.07.17
Загрузка файла на веб сервер.....


4-55886
Pitay
2003-05-14 21:11
2003.07.17
Работа с Bitmap или форматами bmp


14-55784
Ajax
2003-06-29 20:29
2003.07.17
Большая просьба


1-55590
Бородин М
2003-07-03 11:54
2003.07.17
Открытие файла в программе


14-55829
Centurion
2003-07-01 15:04
2003.07.17
DevExpress for Delphi 7