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:


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