Как сделать форму всегда позади всех окон? |
Previous Top Next |
Code: |
protected procedure CreateParams(var Params: TCreateParams); override;
//...
procedure TForm.CreateParams(var Params: TCreateParams); begin inherited CreateParams(Params); if Assigned(Application.MainForm) then begin Params.WndParent := GetDesktopWindow; Params.Style := WS_CHILD; end; end; |
©Drkb::00425
Взято с сайта http://www.swissdelphicenter.ch/en/tipsindex.php