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

TDBGridEh, STFilter, как оно работает? правильно   Найти похожие ветки 

← →
OW ©   (2011-03-24 15:55) [0]

Раньше делал, все было ок.
Сейчас делаю тест, все работает
   dg1: TDBGridEh;
   ds1: TDataSource;
   oq1: TOraQuery;
все связано, данные видятся
 object dg1: TDBGridEh
   STFilter.Visible = True

procedure TForm1.dg1ApplyFilter(Sender: TObject);
begin
 ShowMessage(" ApplyFilter "); // когда нажимаем Enter в фильтре, выскакивает

-----------
Вставляю в реальное приложение
все то же самое, если только форма - fsMDIChild
- не выскакивает.

делаю KeyPreview := True,
procedure TfrmAddress.FormKeyPress(Sender: TObject; var Key: Char);
begin
 mmo1.Lines.Text := mmo1.Lines.Text + Key;
 if Key = #13 then
 begin
   ShowMessage( "KeyPress" );
 end;
end;
все кнопки отлавливает, как только Enter жму - ничего.

но,  
фокус на кнопке Close (там begin Close; end; написано)
и срабатывает!

два часа не пойму в чем  дело..
то ли перегрелся, то ли дело в лыжах

---

← →
OW ©   (2011-03-24 16:00) [1]

ладно, бог с ним с фильтром

procedure TfrmAddress.FormCreate(Sender: TObject);
begin
 inherited;
 KeyPreview := True;
end;

procedure TfrmAddress.FormKeyPress(Sender: TObject; var Key: Char);
begin
mmo1.Lines.Text := mmo1.Lines.Text + Key;
if Key = #13 then
begin
  ShowMessage( "KeyPress = Enter" );
end;
end;

не работает..

---

← →
Медвежонок Пятачок ©   (2011-03-24 16:01) [2]

а при чем здесь ехлиб и одак?

---

← →
OW ©   (2011-03-24 16:07) [3]

ни при чем
началось с этого,
а пока писал вопрос, все снес с формы для проверки

почему Enter съедается?

---

← →
Медвежонок ХМЛ ©   (2011-03-24 16:10) [4]

Потому что никто здесь не в курсе что ты там наворочал.
В mdichild само по себе ничего не съедается.

---

← →
OW ©   (2011-03-24 16:14) [5]

да, наверное, наворотил где выше, там еще формы-родители по иерархии вверх..

изначально думал, может известное что-то

---

← →
OW ©   (2011-03-24 17:47) [6]

вот гадость - кнопка Select, TBitBtn, default = true стояло, и по Enter она отрабатывала
в одном из предков, по этой линии вверх

почти 4,5 часа убито..
главное,  когда и зачем и кто туда в ОО ткнул мышкой ?!!?

---

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

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



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