Usando Frames No Delphi(resolvido)

[Nosdaj]

tudo bem pessoal, estou precisando utilizar frames em minha aplicação, onde tenho um frameMenu que chama outros frames para que eles possam aparecer no centro do form na hora da chamada atraves do frameMenu, grato pela atenção.

e-mail: jadson.leao@sescoop.org.br

messenger : nosdaj@hotmail.com

[DELPHI-Man32]

FORM Principal:

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.

FRAME:

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