Главная страница
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.017 c
14-55812
Nikkk
2003-07-01 07:33
2003.07.17
Не могу поставить систему на ядре NT


1-55497
Пубертанец
2003-07-04 09:06
2003.07.17
Как создать объекты производного класса еще в предке?


1-55642
DeDok
2003-07-04 09:13
2003.07.17
Toolbar как в Visual.NET


3-55478
DmitryZ
2003-06-25 16:10
2003.07.17
Проблема работы с MySQL через dbExpress в Delphi


6-55707
LOX
2003-05-10 14:18
2003.07.17
Код который разрывает связь с инетом.