sábado, 6 de junho de 2009

Como usar um frame em sua aplicação?

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

Nenhum comentário:

Postar um comentário