Обойти все Control ы на форме

← →
qwerty2 (2003-01-07 16:56) [0]

следуя номеру в TabOrder. То есть нужно чтоб переход осуществлялся не только по нажатию клавиши табуляции но и Enter например. Для каждого Controla писать свою процедуру обработки нажатия клавиши не хочется. Можно ли посылать сообщением нажатие клавиши Tab?

← →
Song © (2003-01-07 16:59) [1]

TForm.KeyPreview+TForm.onKeyDown+SelectNext()

procedure TCargoForm.edVolMassKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = VK_RETURN then
begin
Key := 0;
Perform(WM_NEXTDLGCTL, 0, 0);
end;
end;

Обойти все Control ы на форме Найти похожие ветки