Fórum como criar um programa com setas para troca de janelasno delphiXE7 ou XE5 #528289
10/08/2015
0
Everton Lourenço
Curtir tópico
+ 0Posts
15/08/2015
Jhonatan Pereira
•Insere o componente
•Botão Direito em cima dele, "Adicionar Aba" (2x para testar o código abaixo)
•Insira 2 botões, com os nomes "avancar" e "voltar"
Para saltar entre as abas usando os botões insira no onClick dos mesmos o seguinte código:
procedure TForm1.avancarClick(Sender: TObject);
begin
PageControl1.ActivePage := TabSheet2;
end;
procedure TForm1.voltarClick(Sender: TObject);
begin
PageControl1.ActivePage := TabSheet1;
end;caso queira usar mais abas, é melhor usar a propriedade PageIndex, adicionando ou subtraindo 1 no click do botão.
Lembre-se de tratar erros com try e except
Gostei + 0
15/08/2015
Jhonatan Pereira
Caso não tenha ajudado responde aí que tento ajudar.
Gostei + 0
16/08/2015
Everton Lourenço
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)