frames com forms

Question

Como que fa�o que ao clicar em um menu, abrir um frame do lado, vou ter varios frames. Tudo no mesmo form.MENUCadastro    ---  Frame de cadastroVendas    ----   Frame de vendas...

_rodfaria_ · Answer

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.

F�rum frames com forms #297077