Показ окна без главной формы

{codecitation class=»brush: pascal; gutter: false;» width=»600px»}

Как мне сделать так, чтобы видимой была только выбранная форма? (то есть без главной формы)

Попробуйте этот код в любом вторичном окне, которое вы НЕ хотите сопровождать главным окном:

private {Это включается в объявления формы.}

{ Private declarations }

procedure CreateParams(VAR Params: TCreateParams); override;

procedure TForm2.CreateParams(VAR Params: TCreateParams);

begin

Inherited CreateParams(Params);

Params.WndParent := GetDesktopWindow;

end;

Присваивая дескриптор окна родительской формы Рабочему столу, вы удаляете ту связь, которая, в нормальной ситуации, при выводе окна на самый верхний уровень, заставляет переместиться туда также целиком все приложение.

{/codecitation}

Добавить комментарий