Buscar por:

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á. }