Buscar

Como usar um frame em sua aplicação?

Código

{No "Form" principal do projeto, coloque um "Panel" para o título do projeto ou apresentação com imagens, textos, etc. Panel - No Object Inspector:

Mude a propriedade "Align" para "alTop". O tamanho - Apenas "Height" (Altura) = 65, pois "Width" (largura) será a do formulário pai.

Vamos criar os frames agora. Vá ao menu "File", clicar em "New Frame". Abrirá um componente frame com o nome de "Frame1".

No Object Inspector, nas propriedades abaixo, fazer alterações:}



Name - Trocar o nome. (fraMenu - apenas exemplo).
AutoScroll - True.
Height - 379.
Width - 140. //Coloque um Panel dentro do frame. Troque as propriedades abaixo:


Name - Trocar o Nome.
Align - alClient.
Color - A cor desejada.
Caption - para vazio. {Dentro deste panel, coloque os componentes para chamar os outros frames:

SpeedButton, BitBtn, Button, ou outros Panels, o que desejar, desde que tenha o evento "OnClick".

Para cada Button, Panel, etc. que chamar um formulário, usar o comando abaixo.

Neste exemplo foi colocado um Panel, com o nome pnlComponentes, para chamar um frame com o nome de fraComponentes.

No OnClick deste componente, coloque o comando:}



procedure TfraMenu.pnlComponentesClick(Sender: TObject);
begin
  frmPrincipal.fraComponentes.Align:=alClient;
  frmPrincipal.fraComponentes.Visible:=True;
  frmPrincipal.fraComponentes.BringToFront;
End; {No form Principal, na palheta "Standard" do Delphi, dê dois cliques no primeiro componente "Frames", aparecerá uma janela com os nomes dos frames já criados. Escolha fraMenu: o sistema colocará este frame dentro do form principal. O fraMenu que aparecer dentro do form principal, trocar as propriedades abaixo:}


Align - alLeft, isto colocará este frame a esquerda no form principal.
Visible - True, isto fará com que este frame ficará visível todo o tempo. {No fraMenu que aparece dentro do form principal, no Evento "OnClick" deste Panel (pnlComponentes), coloque o comando:}


procedure TfrmPrincipal.fraMenupnlComponentesClick(Sender: TObject);
begin
  fraMenu.pnlComponentesClick(Sender);
end;
  {No "OnCreate" do form principal, usar o comando abaixo, incluindo todas as frames criadas, menos o fraMenu:}


 
procedure TfrmPrincipal.FormCreate(Sender: TObject);
begin
  fraMenu.pnlComponentes.Align:=alTop;
end; //Nos outros frames a serem criados, trocar as propriedades abaixo:


Align - alNone.
Visible - False. {Com isto os frames dentro do form principal estarão invisível, mas, quando clicar no componente dentro do fraMenu, o frame chamado aparecerá. }

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%


Detalhes da dica

Categoria: Forms
Adicionada dia: 06/06/03
Por: Felipe Monteiro
Visualizada: 18469 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009