Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.02 c