Inputbox receber apenas letras maiúsculas?
Boa tarde pessoal gostaria de saber como posso fazer para que uma inputbox recebe apenas letras maiúscula no seu campo de digitação?
Para passar para uma variavel os valores todos maiusculos eu consegui assim:
Pega:= UPPERCASE(InputBox('TITULO\', 'DESCRIÇÃO\', '\'));
ShowMessage(Pega); Mas eu preciso é que na hora em que esteja digitando dentro da inputbox só aceite letras maiusculas, transformando as minusculas em maiusculas! Espero que possam mim ajudar!
ShowMessage(Pega); Mas eu preciso é que na hora em que esteja digitando dentro da inputbox só aceite letras maiusculas, transformando as minusculas em maiusculas! Espero que possam mim ajudar!
Thiago Santana
Curtidas 0
Respostas
Perivaldo Martins
25/02/2010
Declare a constante abaixo.
Const
InputBoxMessage = WM_USER + 123; Crie a proceudre abaixo. private
{ Private declarations }
procedure InputBoxSet(var Msg: TMessage); message InputBoxMessage; Corpo da procedure: procedure TFormXX.InputBoxSet(var Msg: TMessage);
var
i: integer;
begin
for i:=0 to Screen.Forms[0].ComponentCount-1 do
begin
if Screen.Forms[0].Components[i] is TEdit then
begin
With TEdit( Screen.Forms[0].Components[i] ) do
begin
CharCase := ecUpperCase;
end;
end;
end;
end; Teste assim: var
Pega: string;
begin
PostMessage(Handle, InputBoxMessage, 0, 0);
Pega := InputBox('TITULO\', 'DESCRIÇÃO', '\');
if Pega <> '' then
ShowMessage('Descrição: ' + Pega);
end; Boa sorte e bons códigos.
InputBoxMessage = WM_USER + 123; Crie a proceudre abaixo. private
{ Private declarations }
procedure InputBoxSet(var Msg: TMessage); message InputBoxMessage; Corpo da procedure: procedure TFormXX.InputBoxSet(var Msg: TMessage);
var
i: integer;
begin
for i:=0 to Screen.Forms[0].ComponentCount-1 do
begin
if Screen.Forms[0].Components[i] is TEdit then
begin
With TEdit( Screen.Forms[0].Components[i] ) do
begin
CharCase := ecUpperCase;
end;
end;
end;
end; Teste assim: var
Pega: string;
begin
PostMessage(Handle, InputBoxMessage, 0, 0);
Pega := InputBox('TITULO\', 'DESCRIÇÃO', '\');
if Pega <> '' then
ShowMessage('Descrição: ' + Pega);
end; Boa sorte e bons códigos.
GOSTEI 0