Esta eh dose - tabsheets
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??
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??
Gods
Curtidas 0
Respostas
Gods
03/12/2003
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;
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;
GOSTEI 0