Fórum Inputbox receber apenas letras maiúsculas? #16312
25/02/2010
0
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
Curtir tópico
+ 0
Responder
Posts
25/02/2010
Perivaldo Martins
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.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)