Как прикрепить свою форму к другому приложению
Для этого Вам понадобится переопределить процедуру 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;
|
|
