Ver Mensaje Individual
  #5  
Antiguo 15-04-2010
ingel ingel is offline
Miembro
 
Registrado: jun 2003
Posts: 239
Reputación: 22
ingel Va por buen camino
Nop Roman ..

En el form nuevo que cree con solamente un boton esta en False ..
y en el form que lo quiero implementar tambien todos los botones tienen el Cancel en False...

en el Main tengo este codigo para cambiar Tab x Enter ... podra afectar ??

Código:
    if Msg.Message = WM_KEYDOWN then begin
       if Msg.wParam = VK_RETURN then begin {cambio el enter por tab}
           Control_Actual:= Screen.ActiveControl;
           if (Control_actual is TDBMemo) or (Control_actual is TRxRichEdit) then exit;

           if (Control_actual is TEdit) or (Control_actual is TMaskEdit) or
                 (Control_actual is TFloatEdit) or (Control_actual is TDateTimePicker) or (Control_actual is TCustomEdit)
                   or (Control_actual is TCombobox) then Msg.wParam:=VK_TAB;
       end
       else if Msg.wParam = VK_DECIMAL then Msg.wParam:=188
            else if Msg.wParam = VK_ESCAPE then TForm(Screen.ActiveForm).ModalResult:=mrcancel;{Close;}
    end;


Sds y Gracias ....
Responder Con Cita