请教frames的用法！！谢谢

Question

以前有帖子讨论过，你还是看看以前的帖子把

Answer 1

编写左边窗体内控件的事件，
控制右边显示的控件，

Answer 2

My friend ,please see this document .I have some frames,the name is initial,password,viewpic. and these frames's save is uinitial.pas,upassword.pas,and uviewpic.pas.I do these frames like this :
Insert a panel in the main form.and let the frames view in this panel,the panel's name is client.Now I sent the souce of the main form to you ,the filename is umain.pas.
unit umain;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Buttons, Menus, jpeg, ExtCtrls, Db, DBTables,uinitial,upassword,
  uviewpic;type
  Tmain = class(TForm)
    Panel1: TPanel;
    Image1: TImage;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    R1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    S1: TMenuItem;
    N5: TMenuItem;
    N7: TMenuItem;
    N6: TMenuItem;
    Q1: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    H1: TMenuItem;
    U1: TMenuItem;
    N12: TMenuItem;
    A1: TMenuItem;
    J1: TMenuItem;
    R2: TMenuItem;
    O1: TMenuItem;
    F1: TMenuItem;
    N13: TMenuItem;
    X1: TMenuItem;
    Panel2: TPanel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    client: TPanel;
    Database1: TDatabase;
    Image2: TImage;
    procedure N5Click(Sender: TObject);
    procedure X1Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    initial:Tinitial;
    password:Tpassword;
    viewpic:Tviewpic;
  end;var
  main: Tmain;implementation{$R *.DFM}procedure Tmain.N5Click(Sender: TObject);
begin
  if initial<>nil then
    initial.Free;
  initial:=Tinitial.create(client);
  initial.Parent:=client;
  initial.Align:=alClient;
  initial.Show;
end;procedure Tmain.X1Click(Sender: TObject);
begin
 close;
end;procedure Tmain.N7Click(Sender: TObject);
begin
  if password<>nil then
    password.Free;
  password:=Tpassword.Create(client);
  password.Parent:=client;
  password.Align:=alClient;
  password.Show;
end;procedure Tmain.N6Click(Sender: TObject);
begin
  if viewpic<>nil then
    viewpic.Free;
  viewpic:=Tviewpic.Create(client);
  viewpic.Parent:=client;
  viewpic.Align:=alClient;
  password.Show;
end;end.Notice:You can't copy this for other? ^-^ :) ^O^