неверная установка позиции окна

← →
toropoff (2012-09-12 13:09) [0]

DelphiXE2
два монитора 1920x1080
устанавливаю позицию формы:
left:= 1920;
top:= 0;

окно на втором мониторе, но позиция не в самом верху, а примерно на пикслей 15 ниже.
разворачиваю окно на полный экран через кнопку окна - разворачивается правильно.

есть какие идеи?

← →
Дмитрий С © (2012-09-12 14:31) [1]

У тебя в настройках мониторов случайно один монитор не стоит выше другого?

← →
Дмитрий С © (2012-09-12 14:37) [2]

Я так понимаю то что тебе нужно делается примерно так:
var I, SelectedMonitor: Integer; begin SelectedMonitor := 0; for I := 1{!} to Screen.MonitorCount - 1 do if Screen.Monitors[SelectedMonitor].Left < Screen.Monitors[I].Left then SelectedMonitor := I; with Screen.Monitors[SelectedMonitor] do Self.SetBounds(Left, Top, Self.Width, Self.Height); end;

← →
[quote]DelphiXE2 (2012-09-12 15:11) [3]

[quote]DelphiXE2
два монитора 1920x1080
устанавливаю позицию формы:
left:= 1920;
top:= 0;

окно на втором мониторе, но позиция не в самом верху, а примерно на пикслей 15 ниже.
разворачиваю окно на полный экран через кнопку окна - разворачивается правильно.

есть какие идеи?[/quote]

← →
toropoff (2012-09-12 15:23) [4]

Дмитрий С, спасибо!
интересный код, никогда бы не подумал..
вечером буду копать...

← →
kilkennycat © (2012-09-13 06:47) [5]

да уж, код интересный. особенно интересно будет работать, если другие мониторы добавляются или отключаются после инициализации приложения (есть очень хороший шанс, что Screen.MonitorCount не изменится.)
https://forums.embarcadero.com/thread.jspa?threadID=72201&tstart=60

Rect: TRect; Rect:=Monitor.WorkareaRect; with Rect do Self.SetBounds(Left, Top, Right-Left, Bottom-Top);

кроме того, никто не мешает вызывать EnumDisplayMonitors, как это сделано в Forms

вот так проще
BoundsRect:=Monitor.WorkareaRect;

неверная установка позиции окна Найти похожие ветки