[Closed] Holding form position on Win10.

[iru]

Environment: Laz 2.2.6, Win 10 update 22H2, Lenovo X260 I5.

Gentlfolk,

I have a single form application where I wish to position the form on the PC screen and inhibit the user from movin8 the form.

I have done this using Form1.Position poDeskTopCentre (Set in ObjectInspector).

This worked correctly until I migrated to 2.2.6 from 2.2.0 !!!!!

Now the form positions correctly but will move if if 'grabbed' if grabbed by the mouse.

Any directions, ideas? Anyone note anything similar???

Ian.

[KodeZwerg]

Win 10

Code: Pascal  [Select][+][-]

1. uses Windows;
2.  
3. procedure TForm1.FormCreate(Sender: TObject);
4. var
5.   LMenu: HMenu;
6. begin
7.   Self.Position := poScreenCenter; // this I would use instead of poDesktopCenter
8.   // Form can not be dragged anymore:
9.   LMenu := GetSystemMenu(Handle, False);
10.   DeleteMenu(LMenu, SC_MOVE, MF_BYCOMMAND);
11. end;

[iru]

Thank you KodeZwerg your solution solved my problem.

Regards, Ian.

[flowCRANE]

Code: Pascal  [Select][+][-]

1. Self.Position := poScreenCenter; // this I would use instead of poDesktopCenter

Everyone should always use poScreenCenter, because in the case of a desktop extended over several screens, poScreenCenter will allow to display a window centered on the main screen. Whereas poDesktopCenter will calculate the center of the desktop and display the window there — I use two screens myself (one next to the other), so the poDesktopCenter style window appears half on the laptop screen and half on the monitor screen.

[Bart]

This worked correctly until I migrated to 2.2.6 from 2.2.0 !!!!!

Now the form positions correctly but will move if if 'grabbed' if grabbed by the mouse.

This has always been the case, and is also the case in Delphi.

Bart