OnKeyUp

← →
workbench (2008-08-15 14:08) [0]

В программе для таблицы (TDBGridEh) есть обработчик события OnKeyUp, при нажатии Enter`а появляется модальное окно где нужно выбрать значение, неясно следущее: когда я выбираю нужное значение и жму Enter (аналог для кнопки "ОК" типа) опять срабатывает соот-й обработчик TDBGridEh (в модальной форме тоже есть обработчик OnKeyUp - так вот он при этом вообще не вызывается), для модальной формы в OnShow пробовал ставить SetFocus... не помогло, почему так...хз, я что-то не так делаю?

← →
Vlad Oshin © (2008-08-15 14:10) [1]

в одном из них надо передать событие дальше

хотя..
вот, например, вообще ничего не надо ставить никуда

procedure TForm2.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
if key=13 then form3.showmodal;
end;

procedure TForm3.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
if Key=13 then begin close; end;
end;

OnKeyUp Найти похожие ветки