Fórum como criar um programa com setas para troca de janelasno delphiXE7 ou XE5 #528289

10/08/2015

0

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

Responder

Posts

15/08/2015

Jhonatan Pereira

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
Responder

Gostei + 0

15/08/2015

Jhonatan Pereira

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.
Responder

Gostei + 0

16/08/2015

Everton Lourenço

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

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar