ActiveDelphi

JsJhony · Enviada: Seg Set 10, 2012 9:33 pm Assunto: Criar componentes

Eu coloquei num form um tbuton e quando eu clico nele crio um determinado numero de tbitbuton, ate aqui ta tudo bem, porem se seu clicar no tbuton novamente da erro, claro , os botões ( tbitbuton ) ja existe. Como eu posso, testa se um tbitbuton ja existe antes de criar ele, e de que forma eu posso apagar esse componente para criar outro?
Grato.

marcosbaixista · Enviada: Seg Set 10, 2012 9:55 pm Assunto:

Olá.

Você precisa criar um componente e atribuir um nome a ele, assim você consegue verificar se ele ja existe antes de criar outro.
Para remover o componente seria verificar se existem botoes desta classe e se existir mandar excluir todos.

Bom, basicamente é isso.

JsJhony · Enviada: Seg Set 10, 2012 10:38 pm Assunto:

isso eu já sei, só não sabia como fazer. Mas obrigado pela força.

JsJhony · Enviada: Seg Set 10, 2012 10:59 pm Assunto: Re: Criar componentes

eu já consigo testar a existencia dos objetos, agora eu preciso destrui-los para recria-los em seguida? ja usei o "objeto.FREE" e "objeto.DESTROY" mas nao deu certo. segue trecho do código:

IF TestaComponente( 'BB_DEZ_'+inttostr(iCon) ) then
Begin
aButtons[iCon].Free;
aButtons[iCon].Destroy;
End;
aButtons[iCon]:=TBitBtn.Create(Application);
aButtons[iCon].Parent:=P_DEZENAS;
aButtons[iCon].name:='BB_DEZ_'+inttostr(iCon);
aButtons[iCon].Hint:=aButtons[iCon].name;
aButtons[iCon].ShowHint:=True;
aButtons[iCon].Height:=64;
aButtons[iCon].Width:=75;
aButtons[iCon].Font.Style:=[fsBold];
aButtons[iCon].Font.Size:=14;
aButtons[iCon].Left:= iLeft;
aButtons[iCon].Top:= iTop;
aButtons[iCon].Caption:=inttostr(iCon);

vaninho · Enviada: Ter Set 11, 2012 12:50 am Assunto:

Amigo
Ao invés de usar o Free() ou Destroy() que tal FreeAndNil()?

marcieldeg · Enviada: Ter Set 11, 2012 10:16 am Assunto: