Cara não o que você fez ai na programação, mas é pra funcionar normalmente... eu tenho um caso aqui em um componente onde eu preciso excluir o texto de um caption e faço o que te passei e funciona numa boa...
-----Mensagem original----- De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Fábio Thomaz Enviada em: quarta-feira, 21 de abril de 2010 21:02 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Preciso de Ajuda para desenvolver um novo TEdit Valeu Ricardo mas não deu certo não, agora quando eu coloco o componente na tela ele fica com a propriedade ecUpperCase como eu quero, mas quando executo o programa ele volta sua propriedade para ecNormal. Fábio Em 20 de abril de 2010 12:16, Ricardo Pascoal <ricardo.pasc...@ig.com.br>escreveu: > > > Pelo que sei o CreateWnd, sobreescre o metodo contrutor Create da classe. > Assim algumas propriedades só surtem efeito no momento da renderização do > componente. > > -----Mensagem original----- > > De: delphi-br@yahoogrupos.com.br <delphi-br%40yahoogrupos.com.br> [mailto: > delphi-br@yahoogrupos.com.br <delphi-br%40yahoogrupos.com.br>] Em > nome de Fábio Thomaz > Enviada em: terça-feira, 20 de abril de 2010 10:34 > Para: delphi-br@yahoogrupos.com.br <delphi-br%40yahoogrupos.com.br> > Assunto: Re: [delphi-br] Preciso de Ajuda para desenvolver um novo TEdit > > > Valeu amigo, vou testar hoje a noite, mas só uma dúvida, o que faz este > CreateWnd? Ele seta as propriedades default quando o componente é colocado > no form? > > Att, > Fábio Thomaz > > Em 19 de abril de 2010 23:35, Ricardo Pascoal > <ricardo.pasc...@ig.com.br <ricardo.pascoal%40ig.com.br>>escreveu: > > > > > > > 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 <delphi-br%40yahoogrupos.com.br><delphi-br% > 40yahoogrupos.com.br> [mailto: > > delphi-br@yahoogrupos.com.br <delphi-br%40yahoogrupos.com.br><delphi-br% > 40yahoogrupos.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 <delphi-br%40yahoogrupos.com.br><delphi-br% > 40yahoogrupos.com.br> <mailto: > > delphi-br%40yahoogrupos.com.br <delphi-br%2540yahoogrupos.com.br>> > > From: fabio_...@yahoo.com.br <fabio_thz%40yahoo.com.br> <fabio_thz% > 40yahoo.com.br> <mailto: > > fabio_thz%40yahoo.com.br <fabio_thz%2540yahoo.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] > > > > > > > > [As partes desta mensagem que não continham texto foram removidas] > > ------------------------------------ > > > -- > <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> > > > [As partes desta mensagem que não continham texto foram removidas] ------------------------------------ -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>