关于Form的位置(100分)

  • 主题发起人 主题发起人 pander
  • 开始时间 开始时间
P

pander

Unregistered / Unconfirmed
GUEST, unregistred user!
想让程序启动时出现在屏幕的右下方
如果win系统的开始工具栏是自动隐藏的,那么它的底端就是屏幕的底端
如果开始工具栏总是最前,不隐藏,那么Form的底端则是开始工具栏的顶端。
想实现这样的效果应该如何编写程序。谢谢。
 
这是我写的获得窗口可视化区域的代码

type
TScreenArea = Record
Left : integer ;
Top : integer ;
Width : integer ;
Height : integer ;
end;


function ScreenWorkArea:TScreenArea;
var
WorkArea: TRect;
Temp : TScreenArea;
begin
Temp.Left := 0; Temp.Top := 0; Temp.Width := 0; Temp.Height := 0 ;
if SystemParametersInfo(SPI_GETWORKAREA, 0, @WorkArea, 0) then
begin
Temp.Top := WorkArea.Top;
Temp.Left := WorkArea.Left;
Temp.Height := WorkArea.Bottom - WorkArea.Top;
Temp.Width := WorkArea.Right - WorkArea.Left;
end;
Result := Temp ;
end;
 
你难道没有想过Taskbar除了自动隐藏以外,还可能会移动到窗口的顶端和其他位置码?
 
to:DragonPC_???
如果taskbar不再底端,那么还是按照自动隐藏来处理吧。
 
接受答案了.
 
后退
顶部