- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 27
- 28
- 29
- 30
- 31
- 32
- 33
- 34
- 35
- 36
- 37
- 38
- 39
- 40
procedure TForm1.FormCreate(Sender: TObject);
var
H: THandle;
R: TRect;
appbardata: tappbardata;
begin
sx := 0;
sy := 0;
ax := 0;
ay := 0;
sh := GetSystemMetrics(SM_CYSCREEN);
ZeroMemory(@appbardata, SizeOf(tappbardata));
SHAppbarmessage(5, appbardata);
If appbardata.rc.TopLeft.X > 1 then
begin
ax := appbardata.rc.BottomRight.X - appbardata.rc.TopLeft.X;
ax:=ax+4;
end
else
ax:=6;
If appbardata.rc.TopLeft.y > 1 then
begin
ay := appbardata.rc.BottomRight.y - appbardata.rc.TopLeft.y;
ay:=ay+4;
end
else
ay:=6;
sx := (GetSystemMetrics(SM_CXSCREEN)-form1.ClientWidth-ax);
sy := (GetSystemMetrics(SM_CYSCREEN)-form1.ClientHeight-ay);
Form1.left := sx;
Form1.Top :=sy;
end;
guest 10.06.2014 17:09 # 0
Form1.Top=screen.height-Form1.Height;
Form1.Left=screen.width-Form1.Width;
brutushafens 10.06.2014 18:21 # 0
bormand 10.06.2014 18:22 # −1
brutushafens 10.06.2014 18:23 # 0
1024-- 10.06.2014 18:42 # 0
Раньше хром при развороте на 1/2 экрана (своём собственном) не учитывал панель задач, и его окна, расположенные слева и справа, перекрывались из-за этого.
Не знаю, осталось ли сейчас, т.к. видимо они отключили разворот в Win 7+, где он уже есть. У кого осталась XP и/или старый хром, может проверить.
P.S. Кстати, как под линуксами это выглядит? Там же много панелей, больших и разных, которые хром и знать не знает.
brutushafens 11.06.2014 00:35 # 0
guest 11.07.2015 14:41 # 0
Begin
Left:=Screen.WorkAreaLeft+Screen.WorkAre aWidth-Width;
Top:=Screen.WorkAreaTop+Screen.WorkAreaH eight-Height;
End;
bormand 10.06.2014 18:24 # +3
LispGovno 10.06.2014 18:31 # −1
brutushafens 11.06.2014 00:22 # 0
brutushafens 11.06.2014 12:34 # +1