TabSheet Duplicado

Question

Caro ColegasSou novato e tenho um problema que e o seguinte.Para nao ter duplicacao na hora da criacao do TabSheet em tempo de execucao como eu deveria agir.Se alguem puder me ajudar agradeco desde ja...

Raserafim · Answer

dionysio,antes de criar o componente dinamicamente vc pode varrer todos os compoenentes afim de verificar se tem algum TabSheet, caso n�o tenha, a� sim vc cria um dinamicamente. o c�digo pode ser este[code:1:b9b7bd4b7c]var  I: Integer;begin  for I := 0 to ComponentCount - 1 do  begin    if Components&#91;I&93;.ClassType = TTabSheet then      Break; //sai do la�o caso tenha algum TabSheet  end;  if I = ComponentCount then //se n�o tiver nenhum tabsheet o valor de I vai ser igual ao ComponentCount  begin    //criar dinamicamente um TabSheet  end;end;[/code:1:b9b7bd4b7c]...

Gilbertoscruz · Answer

Nem precisa fazer isso naum � codigo a mais para verificar !

faz o seguinte.

var
  Tab: TTabSheet;
begin
  Tab:= TTabSheet.Create(PageControl1);
  Tab.Parent := PageControl1;
  Tab.PageControl := PageControl1;
  Tab.Caption := �Tab�;
end;

dionysio, antes de criar o componente dinamicamente vc pode varrer todos os compoenentes afim de verificar se tem algum TabSheet, caso n�o tenha, a� sim vc cria um dinamicamente. o c�digo pode ser este

var
  I: Integer;
begin
  for I := 0 to ComponentCount - 1 do
  begin
    if Components[I].ClassType = TTabSheet then
      Break; //sai do la�o caso tenha algum TabSheet
  end;
  if I = ComponentCount then //se n�o tiver nenhum tabsheet o valor de I vai ser igual ao ComponentCount
  begin
    //criar dinamicamente um TabSheet
  end;
end;

[code:1:c858e00d63][/code:1:c858e00d63]

Luiz Dionysio · Answer

Caros AmigosMuito obrigado pelas dicas eu vou tentar qualquer coisa eu posto outra vez, OK.AtenciosamenteLuiz Dionysio...

F�rum TabSheet Duplicado #275282