窗体显示的问题！

是否可以让窗体的显示位置始终在中央，且不受屏幕分辨率的影响，  
  类似的，我想设一张图为背景，始终充满屏幕，随屏幕分辨率拉伸，缩小，  
  这些属性该如何设？ 问题点数：100、回复次数：5Top

1 楼netlib（河外孤星）回复于 2002-05-27 09:58:23 得分 0

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

2 楼zswang（伴水清清)(专家门诊清洁工）回复于 2002-05-27 09:59:23 得分 80

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

3 楼zswang（伴水清清)(专家门诊清洁工）回复于 2002-05-27 10:01:43 得分 0

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

4 楼zswang（伴水清清)(专家门诊清洁工）回复于 2002-05-27 10:02:37 得分 0

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

5 楼plainsong（短歌)(）回复于 2002-05-27 10:03:10 得分 0

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

6 楼yansea（思宏）回复于 2002-05-27 10:14:52 得分 0

我觉得还是会受分辨率的影响~Top

7 楼cg1120（代码最优化－§惟坚韧者始能遂其志§）回复于 2002-05-27 10:25:25 得分 0

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

8 楼xiguali（西瓜狸）回复于 2002-05-27 10:49:31 得分 20

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

相关问题

• 属性
• 屏幕
• alclient
• poscreencenter
• image1
• podesktopcenter
• stretch
• 分辨率
• formcreate
• 直接属性

• 帖主：saulliang
• zswang
• xiguali

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载