Dicas - Como obrigar a digita��o de caracteres mai�sculos num Memo

Veja nesta dica, como obrigar a digitação de caracteres maiúsculos em um TMemo.

Como obrigar a digitaç�o de caracteres mai�sculos num campo Memo

Veja nesta dica, como obrigar a digitaç�o de caracteres mai�sculos em um TMemo.

procedure TForm1.Memo1KeyPress(Sender: TObject;

var Key: Char);

begin

Key:= Upcase(Key);

end;