窗口在中英:form.position:=poScreenCenter用一长gif图,一个timage,用align设为alclient;窗口设为最大化就可以了

解决方案 »

  1.   

    procedure TForm1.FormCreate(Sender: TObject);
    begin
    //也可以直接属性
      Position := poDesktopCenter;
      Image1.Align := alClient;
      Image1.Stretch := True;
    end;
      

  2.   

    procedure TForm1.FormCreate(Sender: TObject);
    begin
    //也可以直接属性
      Position := poDesktopCenter;
      Image1.Align := alClient;
      Image1.Stretch := True;
    end;
      

  3.   

    procedure TForm1.FormCreate(Sender: TObject);
    begin
    //也可以直接属性
      Position := poDesktopCenter;
      Image1.Align := alClient;
      Image1.Stretch := True;
    end;
      

  4.   

    始终在中央: Form1.Position设为 poScreenCenter
    设一张图为背景,始终充满屏幕,随屏幕分辨率拉伸,缩小:
    Form2.Align := alClient;
    Form2.BorderStyle := bsNone;
    Form2.Image1.Align := alClient;
    Form2.Image1.Stretch := True;
    Form2.Image1.Picture设置为你的图片;
    Form2.Visible := true;
      

  5.   

    to yansea(思宏) 
    Form1.Position设为 poScreenCenter,不会受分辨率的影响,
    你可以试试
      

  6.   

    全屏显示FORM
    procedure TForm1.Button2Click(Sender: TObject);
    begin
    Form1.BorderStyle:=bsNone;
    Form1.WindowState:=wsMaximized;
    end;全FORM显示图像
    将IMAGE控件里属性里的align设置为alclient,STRETCH设置为true;