Legal Ricardo (xará) : p , foi bem essa mesmo a idéia, só que no meu caso ele coloca sozinho o TShape nos TEdit que estiverem na tela sem que haja TShape no form em tempo de projeto, se q for só um Edit no Form, vale mais já colocar o Shape em Tempo de Projeto mesmo ; ) Economiza memória!!!
PS: Conheces alguma outra forma de criar dinamicamente os Shapes? Ou o xunxo (vi esse termo a uns dias aí na lista, rssrsrsr) que eu fiz é suficiente?? Abraços e Bom Código! Ricardo Berti ----- Original Message ----- From: Ricardo César Cardoso To: delphi-br@yahoogrupos.com.br Sent: Wednesday, February 07, 2007 3:52 PM Subject: Re: [delphi-br] Mudar Cor da Linha do Contorno dos Componentes Puts xará, fiz um estudo de caso identico ao seu e fiquei com vergonha de publicar, mas no meu caso usei Left e Top -2 e Height e Width + 4. Segue abaixo o código: procedure TForm1.FormCreate(Sender: TObject); begin Shape1.Top := Edit1.Top -2; Shape1.Left := Edit1.Left -2; Shape1.Width := Edit1.Width + 4; Shape1.Height := Edit1.Height + 4; Edit1.Clear; Memo1.Clear; end; OBS: mudei o CTL3D e o BorderStyle em tempo de projeto, mas a lógica é a mesma. Ricardo Berti <[EMAIL PROTECTED]> escreveu: Aew Galera, fiz um pequeno "estudo de caso", hehehe, e vejam o que consegui. Sou péssimo no que diz respeito a criação dinâmica de componentes, então, se tiver um jeito melhor, por favor, postem, assim eu aprendo tbm!!! Encham o seu form de edits e coloca isso no OnActivate. procedure TForm1.FormActivate(Sender: TObject); var I: Integer; Sp: TShape; begin for I := 0 to ComponentCount - 1 do begin if Components[I] is TEdit then with Components[I] as TEdit do begin BorderStyle := bsNone; // Assim os edits ficam sem borda, não precisa nem setar eles como CTL3D em False. Sp := TShape.Create(Self); // Cria o Shape Sp.Pen.Color := clLime; //Aqui vai a cor da borda pra ser mudada Sp.Brush.Color := clBlack; //Eu coloquei em preto, pq ai eu vejo se "vazar" algum shape Sp.Left := Left - 1; Sp.Top := Top - 1; Sp.Height := Height + 2; Sp.Width := Width + 2; Sp.Parent := Form1; end; end; end; Bom Código Ricardo Berti ----- Original Message ----- From: Ricardo Berti To: delphi-br@yahoogrupos.com.br Sent: Wednesday, February 07, 2007 11:48 AM Subject: Re: [delphi-br] Mudar Cor da Linha do Contorno dos Componentes Deixa o Edit com BorderStyle em bsNone e coloca junto com ele um TShape atrás, de forma que só apareça a borda... ou se quiser fazer isso em muitos edits, cria uma procedure que leia todos os edits do form e desenhe um TShape atrás de cada um... Vou fazer alguns testes aqui e devolvo a vocês! Bom Código Ricard Berti ----- Original Message ----- From: Rafael Marques To: delphi-br@yahoogrupos.com.br Sent: Wednesday, February 07, 2007 11:31 AM Subject: Re: [delphi-br] Mudar Cor da Linha do Contorno dos Componentes eu tentei pelo canvas mas tomei um pau danado e num consegui :( eheheehheheheeh procurei nuns sites e num achei!! talvez alguem tenha algum exemplo ----- Original Message ----- From: Henrique Netzka (Vetor Sistemas) To: delphi-br@yahoogrupos.com.br Sent: Wednesday, February 07, 2007 10:11 AM Subject: Re: [delphi-br] Mudar Cor da Linha do Contorno dos Componentes Canvas! hahahahaha não tenho uma solução melhor, desculpe rs............. Só não sei se é tão simples, já que o Delphi provavelmente mande o Windows desenhar os controles ao invés de ele mesmo fazê-lo... abraços ----- Original Message ----- From: Rafael Marques To: delphi-br@yahoogrupos.com.br Sent: Wednesday, February 07, 2007 8:38 AM Subject: [delphi-br] Mudar Cor da Linha do Contorno dos Componentes Bom Dia!! alguem sabe como alterar a cor da linha do contorno dos componentes qdo desabilitamos a propriedade CTRL3D??? por exemplo os Edits. eles ficam sem o relevo e com o contorno em linha preta!! eu gostaria de , por exemplo, trocar a cor dessa linha pra azul ou vermelho mto obrigado!! Rafael [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] ---------------------------------------------------------- Esta mensagem foi verificada pelo E-mail Protegido Terra. Scan engine: McAfee VirusScan / Atualizado em 06/02/2007 / Versão: 5.1.00/4957 Proteja o seu e-mail Terra: http://mail.terra.com.br/ [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] __________________________________________________ Fale com seus amigos de graça com o novo Yahoo! Messenger http://br.messenger.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
