Cita:
|
Empezado por Julià T.
Los controles TEdit tienen una propiedad charcase.
Los controles TMemo son derivados de TCustomEdit que también tienen la propiedad charcase aunque es protegida.
para poder utilizar esta propiedad protegida puedes utilizar el código siguiente:
Código Delphi [-]type TUpperMemo=class(TMemo);
procedure TForm1.FormCreate(Sender: TObject);
begin
TUpperMemo(Memo1).CharCase:=ecUpperCase;
end;
|
Este ejemplo tiene el siguiente error, donde dice class (TMemo) deberia ir class (TEdit), de esa forma si funciona.
type TUpperMemo=class(TMemo);