求助啊 帮个忙 谢谢了

Question

帮看下这段代码老是 出错    
procedure TForm1.N1Click(Sender: TObject);
begin
 ShowFrame(4);
end; 
 还有就是    怎么 才能使  frame的窗体边框消失... 并一直附在from上面呢  
 谢谢啦 

Answer 1

ShowFrame 看看这个过程中的代码。

Answer 2

什么意思？  我刚学  都不懂 
  我就是想  调用  下  frame4这个窗体

Answer 3

是这个吗type
  TForm1 = class(TForm)
    Image1: TImage;
    SpeedButton1: TSpeedButton;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    procedure SpeedButton1Click(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;
   CurrBar: Integer;
  IsCreat: bool;implementationuses Unit2, Unit4;{$R *.dfm}procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
  PopupMenu1.Popup(Form1.Left +SpeedButton1.Left ,Form1.Top + SpeedButton1.Top + SpeedButton1.Height + 1);
end;procedure TForm1.N1Click(Sender: TObject);
begin
 ShowFrame(4);
end;

Answer 4

ShowFrame是啥？还有就是 怎么 才能使 frame的窗体边框消失... 并一直附在from上面呢
-----------------
frame本来就没边框，附在Form上的方法跟一般控件的设置完全相同

Answer 5

Frame要有容器 才会显示出来！