如何让一个窗体像QQ一样启动时就在屏幕右边位,(适应不同的屏幕分辨率)谢谢!

解决方案 »

  1.   

    FormShow里就定义窗体显示的位置
    Form1.Left := 0;
    Form1.Top := 0;
      

  2.   

    感觉楼上说的合理,但不符合楼主要求。
    应该为Form1.left := Screen.Width; //这里最好减几,不然贴右边有可能显示不出来,猜测,错了勿怪
         Form1.top := 0;
      

  3.   

    先获取屏幕的高和宽 Screen.Width;   
    Screen.Height;
    然后设置你窗体的left:=Screen.Width -XX ; 
    top:=Screen.Height-YY;  // XX YY根据你窗体的属性设置                 
      

  4.   


    在属性面板里直接修改anchors属性的akright 和aktop为true即可
      

  5.   

    procedure TForm1.FormShow(Sender: TObject);
    begin
            form1.Left := screen.Width - form1.Width;
            form1.Top := 0;
    end;
      

  6.   

    Form1.left := Screen.Width - Form.width; 
    Form1.top := 0;