Abas

[Marostegan 0]

alguem sabe como faz aqueles esqueminhas dentro do formulario cmo abas??por exemplo...vou cadastrar um funcionario...ai tem as seguintes abas na tela de cadastro (forms)aba PESSOALaonde vou estar cadastrando as informações pessoais da pessoaaba SERVIÇOonde vou cadastrar salario, horario de entrada e saida.... horas extras do mes etc...aba OUTROSonde vou colocar outras informações...queria saber como faz esses esqueminhass...valewss!!!

[Hugo Slepicka 0]

Coloque no form um componente PageControl...

 

Após feito isso clique com o botão direito no PageControl e em clique em New Page...

 

 

http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[deio 0]

no meu programa tem uma função q cria abas novas, vou colocar ele aqui só pra ter uma ideia de como funciona :

 

procedure TForm1.Abriremnovaaba1Click(Sender: TObject);var   num : integer;  TabSheet :TTabSheet;begin  inc(num);  TabSheet := TTabSheet.Create(Self);  TabSheet.Name := 'TabSheet'+IntToStr(PageControl1.PageCount +1);  // garante nome único  TabSheet.Caption := 'TabSheet '+IntToStr(PageControl1.PageCount +1);  // efetiva a inserção no componente PageControl (equivale a setar o Parent no outro componente)  TabSheet.PageControl := PageControl1;  with TDBGrid.Create(self) do // aqui é a parte onde eu crio um componente dentro da aba  begin    Parent := TabSheet; // aqui indica q o componente faz parte da aba    Name :='DbGrid_'+ inttostr(num); // daqui pra baixo são tudo propriedades e funções do DBGrid criado    Top := 0;    Left := -1;    Width := 771;    Height := 615;    datasource := datamodule6.DataSource1;    anchors:= [akLeft,akTop,akRight,AkBottom];    options := [dgTitles,dgIndicator,dgColumnResize,dgColLines,dgRowLines,    dgTabs,dgRowSelect,dgAlwaysShowSelection,dgConfirmDelete,dgCancelOnExit];    ondblclick :=  RecordView1Click;  end;end;

agora q tu ja tens a função pra abrir, vou te passar a pra fechar :

 

procedure TForm1.Fecharaba1Click(Sender: TObject);var  Componente :TComponent;beginComponente := PageControl1.ActivePage;  if Assigned(Componente) then    Componente.Free;end;

acho q é só isso, espero ter ajudado http://forum.imasters.com.br/public/style_emoticons/default/grin.gif

[Hugo Slepicka 0]

Legal, bela iniciativa Deio!!!

 

Parabéns!!! http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[marcio.theis 3]

no meu programa tem uma função q cria abas novas, vou colocar ele aqui só pra ter uma ideia de como funciona :

procedure TForm1.Abriremnovaaba1Click(Sender: TObject);var   num : integer;  TabSheet :TTabSheet;begin  inc(num);  TabSheet := TTabSheet.Create(Self);  TabSheet.Name := 'TabSheet'+IntToStr(PageControl1.PageCount +1);  // garante nome único  TabSheet.Caption := 'TabSheet '+IntToStr(PageControl1.PageCount +1);  // efetiva a inserção no componente PageControl (equivale a setar o Parent no outro componente)  TabSheet.PageControl := PageControl1;  with TDBGrid.Create(self) do // aqui é a parte onde eu crio um componente dentro da aba  begin    Parent := TabSheet; // aqui indica q o componente faz parte da aba    Name :='DbGrid_'+ inttostr(num); // daqui pra baixo são tudo propriedades e funções do DBGrid criado    Top := 0;    Left := -1;    Width := 771;    Height := 615;    datasource := datamodule6.DataSource1;    anchors:= [akLeft,akTop,akRight,AkBottom];    options := [dgTitles,dgIndicator,dgColumnResize,dgColLines,dgRowLines,    dgTabs,dgRowSelect,dgAlwaysShowSelection,dgConfirmDelete,dgCancelOnExit];    ondblclick :=  RecordView1Click;  end;end;

agora q tu ja tens a função pra abrir, vou te passar a pra fechar :

procedure TForm1.Fecharaba1Click(Sender: TObject);var  Componente :TComponent;beginComponente := PageControl1.ActivePage;  if Assigned(Componente) then    Componente.Free;end;

acho q é só isso, espero ter ajudado http://forum.imasters.com.br/public/style_emoticons/default/grin.gif

Parabéns Deio, excelente a sua iniciativa... http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

[Marostegan 0]

poxa...deu certo...que legal...muito obrigado..abraçoss...

[Hugo Slepicka 0]

Beleza... bom saber disso...

 

http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif