Esta eh dose - tabsheets
03/12/2003
0
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
Curtir tópico
+ 0
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;
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
Clique aqui para fazer login e interagir na Comunidade :)