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 само по себе ничего не съедается.

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

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

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

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

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