Buscar por:

Usando componente pagecontrol

Código

{esta dica é pra mudar de uma PAge para outra atravez de um botão , supondo que tenham sido criados 3 Pages este código serve para encrementar o sistema fazendo com que as páginas possam ser acessadas por um botão ou até mesmo no menu }

procedure TF_Principal.Agenda2Click(Sender: TObject);

begin

PageControl1.ActivePage:=TabSheet1;

end;

procedure TF_Principal.Contatos1Click(Sender: TObject);

begin

PageControl1.ActivePage:=TabSheet2;

end;

procedure TF_Principal.AlbumdeFotos1Click(Sender: TObject);

begin

PageControl1.ActivePage:=TabSheet3;

end;