Delphi dicas

Usando componente pagecontrol

{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;

por : Claudinho Wylde