No hay respuestas en este tema

[sir.dev.a.lot]

[TRUCO DELPHI] Usar las teclas de Direccion para desplazarse entre Controles.

delphi

procedure TForm1.FormKeyDown(
	    Sender : TObject;
	    var Key: Word;
	    Shift  : TShiftState
	  );
	var
	  Direction : Integer;
	begin
	  Direction := -1;
	  case Key of
	    VK_DOWN, VK_RETURN : Direction := 0;  {Siguiente}
	    VK_UP              : Direction := 1;  {Anterior}
	  end;
	  if Direction <> -1 then
	  begin
	    Perform(WM_NEXTDLGCTL, Direction, 0);
	    Key := 0;
	  end;
	end;

Saludos!