Re: Using Multiple Displays [67860]

Sun, 05 Feb 2017 23:47:24 -0800 

CieraBrier:
--------------------------------------------------------------------------------
Freeman:
--------------------------------------------------------------------------------
Jan, I wrote small sample, but cannot test it, because I have only one monitor:

  TMainForm = class(TForm)
  protected
    procedure WMWindowPosChanged(var Msg: TWMWindowPosChanged); message
WM_WINDOWPOSCHANGED;
  end;

procedure TMainForm.WMWindowPosChanged(var Msg: TWMWindowPosChanged);
begin
  inherited;
  if not (csLoading in ComponentState) then
    with Msg.WindowPos^ do
      MoveWindow(Application.Handle, x, y, cx, cy, True);
end;

--------------------------------------------------------------------------------

--------------------------------------------------------------------------------


This caused wrong Window border on Windows 10

-- 
<http://forum.pspad.com/read.php?4,63717,67860>
PSPad freeware editor http://www.pspad.com

Odpovedet emailem