如何让一个窗体像QQ一样启动时就在屏幕右边位 如何让一个窗体像QQ一样启动时就在屏幕右边位,(适应不同的屏幕分辨率)谢谢! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 FormShow里就定义窗体显示的位置Form1.Left := 0;Form1.Top := 0; 感觉楼上说的合理,但不符合楼主要求。应该为Form1.left := Screen.Width; //这里最好减几,不然贴右边有可能显示不出来,猜测,错了勿怪 Form1.top := 0; 先获取屏幕的高和宽 Screen.Width; Screen.Height;然后设置你窗体的left:=Screen.Width -XX ; top:=Screen.Height-YY; // XX YY根据你窗体的属性设置 在属性面板里直接修改anchors属性的akright 和aktop为true即可 procedure TForm1.FormShow(Sender: TObject);begin form1.Left := screen.Width - form1.Width; form1.Top := 0;end; Form1.left := Screen.Width - Form.width; Form1.top := 0; 求救,应该程序运行错误! delphi 捕捉dbexpress error 错误 webbrowser下相同的代码,出现不同的结果,高手请解答. 反编译 求教"省<->市<->县<->乡镇"间数据传递、交换解决方案 如何使用橡皮筋的方式画一个矩形,最好有源码?? 剪贴板容量有限制?????????????,怎么让他没有限制? 树形结构,你准备好了吗? 请问哪位大大有好的随机算法? 如何处理[notepad.exe进程事件],存在提示[已运行],不存在[运行]一次 DateTimePicker控件的下拉內容怎樣判斷 去北大青鸟学.net对学delphi有没有帮助啊?
Form1.Left := 0;
Form1.Top := 0;
应该为Form1.left := Screen.Width; //这里最好减几,不然贴右边有可能显示不出来,猜测,错了勿怪
Form1.top := 0;
Screen.Height;
然后设置你窗体的left:=Screen.Width -XX ;
top:=Screen.Height-YY; // XX YY根据你窗体的属性设置
在属性面板里直接修改anchors属性的akright 和aktop为true即可
begin
form1.Left := screen.Width - form1.Width;
form1.Top := 0;
end;
Form1.top := 0;