Todo en mayusculas

[pborges36]

Hola a todos, necesito una ayudita: como hago para que en todo mis edit se ingrese solo texto en mayuscula? gracias.

[roman]

Pon su propiedad CharCase igual a ecUpperCase.

Ahora que, si esto te es pesado puedes hacerlo para cualquier Edit que tengas o vayas a tener manipulando el mensaje WM_CHAR:

Pon una componente ApplicationEvents en tu formulario y en su evento OnMessage pones:

Código Delphi [-]
var
  Control: TWinControl;

begin
  if Msg.message = WM_CHAR then
  begin
    Control := FindControl(Msg.hwnd);
    if Assigned(Control) and (Control is TEdit) then
      msg.wParam := Ord(UpCase(Char(msg.wParam)))
  end;
end;

// Saludos

[pborges36]

Hey!!! Funciona a la perfeccion... Muchas Gracias!!!!!!!

[bigpeter80]

Excelente!!! a mi también me funcionó de mil maravillas.... Muchas gracias