procedure TForm1.Button1Click(Sender: TObject);
begin
        form1.Visible:=false;
        Form3.showModal;
        form1.Close;
end;我想让form3 是满屏的,该怎么办呢?

解决方案 »

  1.   

    在form3.create中写
    form3.height := screen.height;
    form3.width := screen.width;
    form3.formstyle := fsstayontop;
      

  2.   

    设计时让ALIGN := ALCIENT;
      

  3.   

    procedure TForm3.FormCreate(Sender: TObject);
    begin
      Form3.BorderStyle:= bsNone;
      Form3.WindowState:= wsMaximized;
    end;
      

  4.   

    Form3.BorderStyle:= bsNone;
    Form3.WindowState:= wsMaximized;
      

  5.   

    大家都说了Form1.WindowState:= wsMaximized;
      

  6.   

    Form3.WindowState:= wsMaximized;
      

  7.   

    dong001每天都来问一些基本的问题,而且都给100分,是不是这个网站的托儿???~~~~~~~~
      

  8.   

    procedure TForm3.FormCreate(Sender: TObject);
    begin
      Form3.BorderStyle:= bsNone;
      Form3.WindowState:= wsMaximized;
    end;
      

  9.   

    顺便问下,有没有跟DBGrid功能一样的表格控件? DBGrid 太难看了。