Form is displayed in the top of the screen, always located at the top, and, when other programs to maximize its edge can't into my below the program, similar to the Windows task bar to move to the top of the screen that kind of effect,
Now solve the problem is to make the window top and use Windows + D (or click the show desktop button) don't disappear,
Implementation process is as follows:
Public:
Procedure CreateParams (var Params: TCreateParams); Override.//in your form overloading


Procedure TfrmMain. Button3Click (Sender: TObject);
Var
WND: THandle;
The begin
FrmMain. FormStyle:=fsStayonTop;
WND:=FindWindow (nil, 'Project1');
SHowWIndow (WND, SW_HIDE);
FrmMain. BorderStyle:=bsNone;
FrmMain. Top:=0;
Frmmain. Left:=0;
FrmMain. Width:=Screen. Width;
FrmMain. Height:=30;
The end;

Procedure TfrmMain. CreateParams (var Params: TCreateParams);
The begin
Inherited;
Params. EXStyle:=Params. EXStyle or WS_EX_TOOLWINDOW;
Params. WndParent:=GetDesktopWindow;//to redefine the Parent object handle, need to see you,
The end;

CodePudding user response:

Maximize the other program is poor at present, they are at the top of the 0, I want to change to maximize other forms, they should be 0 + my form at the top of the height,
One brother has a solution,

CodePudding user response:

Appbar this technology have been discussed long ago

CodePudding user response:

Pick up points, then points, pick up, pick up points,

CodePudding user response:

Like MeiPing comparing these play,,,,

CodePudding user response:

refer to the second floor sailxia response:

appbar this technology have been discussed long ago

Yes, resources can be downloaded here: demo program can be docked to other application forms around the screen and can make maximum size requirements,