frames com forms

Delphi

26/09/2005

Como que faço que ao clicar em um menu, abrir um frame do lado, vou ter varios frames. Tudo no mesmo form.

MENU
Cadastro --- Frame de cadastro
Vendas ---- Frame de vendas


Fmtrevisan

Fmtrevisan

Curtidas 0

Respostas

_rodfaria_

_rodfaria_

26/09/2005

Declare uma variável tipo frame e codifique um procedimento que criará frames de acordo com o nome passado por parâmetro.
  private
    FMeuFrame:TFrame;
  public
    procedure CriaFrame(nome:string);


Se o frame já existir, ele será destruído e depois recriado.
procedure TForm1.CriaFrame(nome: string);
begin
    if assigned(FMeuFrame) then
        FMeuFrame.Destroy;

    if nome=´vendas´ then
        FMeuFrame:=TFrameVendas.Create(self)
    else if nome=´clientes´ then
        FMeuFrame:=TFrameClientes.Create(self);

    FMeuFrame.Parent:=self;
    FMeuFrame.Left:=200;
    FMeuFrame.Top:=100;
end;


Basta chamar a procedure a partir do button, menu...não importa.
procedure TForm1.Button1Click(Sender: TObject);
begin
   CriaFrame(´clientes´);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
    CriaFrame(´vendas´);
end;


Rod.


GOSTEI 0
POSTAR