Fabio, tenta fazer o seguinte...
Logo depois da declaração do método create do componente, declare o método abaixo : procedure CreateWnd ; override ; em seguida coloque a implementação desse método como segue : procedure TSuaClasse.CreateWnd ; begin inherited ; Self.CharCase := ecUpperCase ; end; Obs : Não testei mas acredito que isso deva resolver...blz De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Rubem Nascimento da Rocha Enviada em: segunda-feira, 19 de abril de 2010 23:09 Para: delphi-br Assunto: RE: [delphi-br] Preciso de Ajuda para desenvolver um novo TEdit Prioridade: Alta A lista não aceita anexos nas msgs. Sds. To: delphi-br@yahoogrupos.com.br <mailto:delphi-br%40yahoogrupos.com.br> From: fabio_...@yahoo.com.br <mailto:fabio_thz%40yahoo.com.br> Date: Mon, 19 Apr 2010 21:32:58 -0300 Subject: [delphi-br] Preciso de Ajuda para desenvolver um novo TEdit Olá amigos do grupo, estou tendanto desenvolver um novo TEdit que já venha com algumas propriedades pessoais para desenvolvimento que eu defini, mas não consigo deixar a propriedade CharCase com o padrão ecUpperCase, mesmo definindo como default na propriedade, se eu colocar para que ele receba ecUpperCase no OnCreate do componente funciona, mas quando eu preciso que não tenha esta propriedade, fica complicado, eu coloco ecNormal e ele coloca no OnCreate o ecUpperCase, segue em anexo a unit com o componente. Desde já agradeço, Att, Fábio Thomaz __________________________________________________________ O Internet Explorer 8 quer te ajudar a navegar seguro. Entre aqui para ler as dicas. http://www.microsoft.com/brasil/windows/internet-explorer/?WT.mc_id=1500 [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
