Passar de EDIT por EDIT usando o ENTER

Esse código é uma manerira simples de como fazer para ir mudando de RDIT através da tecla ENTER , esse comando tem que ser digitado dentro do Events OnKeyPress de cada EDIT.

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
 If key = #13 then
   Begin
      Key:= #0;
      Perform(Wm_NextDlgCtl,0,0);
   end;
end;

// Esse comando também pode ser usando dentro do OnKeyPress do TButTon .

procedure TForm1.Button1.KeyPress(Sender: TObject; var Key: Char);
begin
  If key = #13 then
   Begin
      Key:= #0;
      Perform(Wm_NextDlgCtl,0,0);
   end;
end;

// Esse código não pode ser utilizado em TSpeedButton , pois o SpeedButton não recebe SetFocus.

Artigos relacionados