Hola a todos, Amigos Disculpen que no pueda comprender el codigo anterior, pero estoy trabajando en Delphi V.6 con un solo Formulario y lo que quiero en realidad es que cuando el usuario presione la tecla Arriba salte el foco al control anterior como si efectuaramos el un simple
Shift+Tab, Poseo el siguiente codigo y me gustaria que me ayudaran en el siguiente codigo que debo poner en el codigo en Negrita.
Código Delphi
[-]
procedure TFE_Clientes.FormCreate(Sender: TObject);
begin
Application.OnMessage := Capturar_Mensajes; end;
procedure TFE_Clientes.Capturar_Mensajes(var Msg: TMSg; var Handled:Boolean);
var
Actual : TWinControl;
Begin
If Msg.message = WM_KEYDOWN Then
Begin
If (Msg.wParam = VK_RETURN) Then
Begin
Actual := Screen.ActiveControl;
If (Actual is TCustomEdit)
Then Msg.wParam := VK_TAB;
End;
If Msg.wParam = VK_UP Then Begin
Actual := Screen.ActiveControl;
If (Actual is TCustomEdit)
Then Msg.wParam := VK_SHIFT+VK_TAB;
End;
End;