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 

Ajuste de tamanho Edit [RESOLVIDO]

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


Registrado: Quinta-Feira, 31 de Outubro de 2019
Mensagens: 43
Localização: São Paulo
MensagemEnviada: Qua Fev 12, 2020 4:17 pm    Assunto: Ajuste de tamanho Edit [RESOLVIDO] Responder com Citação
Boa tarde pessoal,
Em um form de cadastro de contatos crio os edits em tempo de execução usando a mesma variável, gostaria de saber se é possível ajustar o tamanho do edit automaticamente a partir da seleção do usuário. Por exemplo para cadastrar um email preciso de um edit maior que para cadastrar um número de telefone. Tentei com query e if, mas não funcionou.
Obrigado por enquanto.

Editado pela última vez por RefPina em Qui Fev 13, 2020 11:21 am, num total de 1 vez
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
joemil
Moderador
Moderador


Registrado: Quinta-Feira, 25 de Março de 2004
Mensagens: 9100
Localização: Sinop-MT
MensagemEnviada: Qui Fev 13, 2020 9:08 am    Assunto: Responder com Citação
tente algo assim:
Código:
for x := 0 to Query1.Fields.Count -1 do
begin
  Edit := TEdit.Create(Self);
  Edit.Name := Query1.Fields[x].FieldName;
  if Query1.Fields[x].DataType in [ftFloat, ftInteger] then
    Edit.Widht := 50
  else if Query1.Fields[x].DataType in [ftString] then
    Edit.Widht := Query1.Fields[x].Size;
end;

_________________
<b>SEMPRE COLOQUE [RESOLVIDO] NO SEU POST</b>
Enviar imagens: http://tinypic.com/
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
RefPina
Novato
Novato


Registrado: Quinta-Feira, 31 de Outubro de 2019
Mensagens: 43
Localização: São Paulo
MensagemEnviada: Qui Fev 13, 2020 10:57 am    Assunto: Responder com Citação
Obrigado Joemil pela atenção e resposta. Funcionou do jeito que esperava.
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