Как прикрепить свою форму к другому приложению?
Falk0ner, вс, 06/07/2008 - 15:34.
Для этого Вам понадобится переопределить процедуру 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;
...
protected
procedure CreateParams( var params: TCreateParams ); override;
...
procedure TForm2.Createparams(var params: TCreateParams);
var
aHWnd : HWND;
begin
inherited;
{как-нибудь получаем существующий дескриптор}
ahWnd := GetForegroundWindow;
{а теперь:}
params.WndParent := ahWnd;
end;
Взято из http://forum.sources.ru
Отправить комментарий