Esta eh dose - tabsheets

03/12/2003

1

eae pessoal

to com 1 problema.

tenho uma tabsheets com 2 edits e gostaria q ao clicar num botao outra tabsheets fosse criada contendo estes mesmo edits

criar uma nova tabsheets eh facil so nao to entendendo como colocar os objetos dentro dela automaticamente

tipo se eu clicar no botao 1000 vezes vou ter 1000 tabsheets todos com os 2 edits dentro

alguem tem alguma ideia??


Responder

Posts

03/12/2003

Gods

bom, acho q consegui

fiz assim:
´se alguem tem um jeito melhor podia dar um help´

procedure TForm1.Button1Click(Sender: TObject);

var
TabSheet:TTabSheet;
aux : integer;
begin
aux := 1;
TabSheet := TTabSheet.Create(PageControl1);
TabSheet.PageControl := PageControl1;
TabSheet.Caption := ´teste´+IntToStr(aux);

with TButton.Create(self) do begin
Parent := TabSheet;
Left := 10;
Top := 10;
Caption := ´A Button´;
end;

end;


Responder