Как прикрепить свою форму к другому приложению

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

Для этого Вам понадобится переопределить процедуру CreateParams у желаемой формы. А в ней установить params.WndParent в дескриптор окна, к которому Вы хотите прикрепить форму.

… = class(TForm)

protected

procedure CreateParams(var params: TCreateParams); override;

procedure TForm2.Createparams(var params: TCreateParams);

var

aHWnd: HWND;

begin

inherited;

{как-нибудь получаем существующий дескриптор}

ahWnd := GetForegroundWindow;

{а теперь:}

params.WndParent := ahWnd;

end;

{/codecitation}

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