Buscar por:

Letras maiúsculas no memo

Código

{

Olá pessoal, um dia me deparei com este problema, como fazer com que o usuário escreva somente letras maiúsculas no MEMO sendo que este componente não tem nenhuma propeiedade para tal função??? Tive q fazer na marra.

}

// No evento OnKeyPress do memo insira o seguinte código

procedure TForm.memo1KeyPress(Sender: TObject;

  var Key: Char);

var

  caracter : string; // variável q vai receber a letra em maiúsculo

begin

  caracter := UpperCase(key); // passa a letra para maiúsculo

  key := caracter[1]; // passa a letra pra ser escrita no memo

end;