como criar um programa com setas para troca de janelasno delphiXE7 ou XE5

Delphi

10/08/2015

Olá pessoal do Devmedia, gostaria de uma ajuda na elaboração de um programa que execute o seguinte layout(figura no anexo) e funcionalidade, ao precionar as setas "<" ">" localizadas nas partes laterais de um form, o mesmo passe para proxima "area" , pois quero com que o visual fique muito parecido com o do antivirus PANDA2015, que por sinal lembrea o windows 8.agradeço desde já se puderem me orientar![img]http://arquivo.devmedia.com.br/forum/imagem/445570-20150810-131545.png[/img]
Everton Lourenço

Everton Lourenço

Curtidas 0

Respostas

Jhonatan Pereira

Jhonatan Pereira

10/08/2015

Não uso essas versões, mas com certeza tem o componente PageControl.

•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
Jhonatan Pereira

Jhonatan Pereira

10/08/2015

Para iniciar o form com uma certa aba em foco, use a mesma propriedade ActivePage no onShow do form para definir a aba inicial.
Caso não tenha ajudado responde aí que tento ajudar.
GOSTEI 0
Everton Lourenço

Everton Lourenço

10/08/2015

muito obrigado amigo, voçe ja esta me ajudando muito assim, vou reportar os problemas caso ocorram no processo.
GOSTEI 0
POSTAR