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

← →
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;

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