ayuda con teclas

[perico]

hola todos, les comento cual es mi problema. Estoy haciendo una aplicacion que tiene propiedades Tactiles, y necesito colocar unos speedbutton y al precionarlos sea como precionar una tecla del teclado y se asigne al edit que tenga ese momento el foco y no lo pierda ademas. creo que es por mensajes de windows pero no se bien como.

de ante mano les agradesco culaquier ayuda que me puedan dar.

y disculpen las molestias.

[[Al González]]

¡Buen día a todos!

Perico:

En la biblioteca Interfaz GH tengo una función llamada SimulTeclCade (Simular Tecleo de Cadena), que puedes utilizar de la siguiene manera:

Uses
  GHTecl;
...
Begin
  SimulTeclCade ('5');

El ejemplo anterior hará que se ingrese un "5" al edit que tenga el foco en ese momento, exactamente como si el usuario lo hubiese introducido con el teclado.

Espero esto sea de utilidad. Seguimos en contacto.

Al González .

[roman]

Empezado por perico

necesito colocar unos speedbutton y al precionarlos sea como precionar una tecla del teclado y se asigne al edit que tenga ese momento el foco y no lo pierda ademas.

No entiendo muy bien tu pregunta. Un speedbutton de por sí no obtiene el foco así que no se perderá el foco del edit que en esos momentos lo tenga. En el evento OnClick del speedbutton puedes simplemente verificar que ActiveControl sea un TEdit y asignarle el texto que quieras:

Código Delphi [-]
if ActiveControl is TEdit then
  TEdit(ActiveControl).Text := 'tu texto';

// Saludos

[perico]

y como descargo esa biblioteca

gracias por su ayuda.


roman, lo que pasa es que los speedbutton estan es en otro formulario y el si toma el foco de todos modos gracias y si tienes alguna otra sugerencia estaria muy agradecido.

[[Al González]]

Empezado por perico

y como descargo esa biblioteca...

¡Buen día a todos!

Hola Perico:

Este es un enlace para su descarga:

Interfaz GH

Espero les sea de utilidad. Seguimos en contacto.

Al González .

[roman]

Empezado por perico

roman, lo que pasa es que los speedbutton estan es en otro formulario y el si toma el foco de todos modos gracias y si tienes alguna otra sugerencia estaria muy agradecido.

Vamos a suponer que los speed button están en Form1 y los TEdit en Form2.

En Form1 interceptas el mensaje WM_MOUSEACTIVATE:

Código Delphi [-]
type
  TForm1 = class(TForm)
  private
    procedure WMMouseActivate(Msg: TWMMouseActivate); message; WM_MOUSEACTIVATE;
  end;

implementation

procedure TForm1.WMMouseActivate;
begin
  Msg.Result := MA_NOACTIVATE;
end;

Con esto puedes presionar los speed button sin que Form2 pierda el foco.

// Saludos

[perico]

ok gracias, no pude descargar la biblioteca desde ahi si puedes enviarmela a mi correo perico@cantv.net y algun manual te lo agradeceria y disculpa las molestias.

[perico]

gracias roman hare eso para lo del foco, es muy buena la solucion.