Delphi Sources

Как подменить нажатия ENTER на нажатия TAB 3




procedure TForm1.FormCreate(Sender: TObject);
begin
  Form1.KeyPreview := true;
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
  c: TControl;
begin
  if Key <> 13 then
    Exit;
  repeat
    c := Form1.FindNextControl(Form1.ActiveControl, true, true, true);
    (c as TWinControl).SetFocus;
  until
    c is TEdit;
end;





Похожие по теме исходники

Center Dialog

Images Database

Create Table in Runtime

Transfer Tables Excel-Access

 

Library Database

Multiplication Table

Game Database