Cita:
|
Empezado por uper
En el componente Dbmemo del evento onkeypress puse este codigo
Upper(dbmemo1.text)
|
¿Upper? ¿Existe esta función?
Puedes simplemente poner:
Código Delphi
[-]
procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
Key := UpCase(Key);
end;
// Saludos