Написал обработчик:
- Код: Выделить всё
procedure TFormPidvOk.FormKeyPress(Sender: TObject; var Key: char);
begin
if Key=#13 then begin
SelectNext(Sender as TWinControl,true,true);
key := #0;
end;
if Key=#27 then Close;
end;
На некоторых формах работает, на некоторых = нет. Св-во
- Код: Выделить всё
KeyPreview=false