ActiveDelphi - Índice do Fórum ActiveDelphi
.: O site do programador Delphi! :.
 
 FAQFAQ   PesquisarPesquisar   MembrosMembros   GruposGrupos   RegistrarRegistrar 
 PerfilPerfil   Entrar e ver Mensagens ParticularesEntrar e ver Mensagens Particulares   EntrarEntrar 

Comando de Repeticao

 
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi
Exibir mensagem anterior :: Exibir próxima mensagem  
Autor Mensagem
aig1
Novato
Novato


Registrado: Sexta-Feira, 15 de Dezembro de 2006
Mensagens: 21

MensagemEnviada: Qui Jan 04, 2007 10:50 am    Assunto: Comando de Repeticao Responder com Citação

Ola ! pessoal..

bom eu acredito que nao tem jeito, mas nao custa nada tentar...

toda vez que eu desejo inserir deversos valores em um mesmo componente eu utilizo o seguinte comando

ex.

with edit1 do
begin
clear;
setfocus;
end;

Alguem saberia como que eu faco para inserir o mesmo valor em diversos componentes...

ex.

edit1.clear;
edit2.clear;
edit3.clear;

eu quero inserir o "CLEAR" em todos os edit's de meu form mas sem ter que informar um-por-um.

vlw!
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
adriano_servitec
Colaborador
Colaborador


Registrado: Sexta-Feira, 30 de Janeiro de 2004
Mensagens: 17618

MensagemEnviada: Qui Jan 04, 2007 10:55 am    Assunto: Responder com Citação

Eh isto que tu queres?
Código:
var I: integer;
begin
for i:= 0 to ComponentCount - 1 do
if Components[I] is TEdit then
(Components[I] as TEdit).Clear;

_________________
Jogo seu smartphone? Acesse o link e confira.
https://play.google.com/store/apps/details?id=br.com.couldsys.rockdrum
https://play.google.com/store/apps/details?id=br.com.couldsys.drumsetfree
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
aig1
Novato
Novato


Registrado: Sexta-Feira, 15 de Dezembro de 2006
Mensagens: 21

MensagemEnviada: Qui Jan 04, 2007 11:04 am    Assunto: Responder com Citação

Maninho.... e isso mesmo... valeu...
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
Mostrar os tópicos anteriores:   
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi Todos os horários são GMT - 3 Horas
Página 1 de 1

 
Ir para:  
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.


Powered by phpBB © 2001, 2005 phpBB Group
Traduzido por: Suporte phpBB