Как привязать форму к другому окну

В примере мы прикрепляем нашу форму к окну программы Калькулятор. Теперь форма становится дочерней по отношению к окну Калькулятор.
protected
procedure CreateParams( var params: TCreateParams ); override;
{ ... }
procedure TForm1.CreateParams(var params: TCreateParams);
var
aHWnd : HWND;
begin
inherited;
{Любым способом получаем правильный дескриптор; можно так:}
ahWnd := FindWindow(nil, 'Калькулятор');
{и теперь:}
params.WndParent := ahWnd;
end;
Таким образом, можно прикрепить нашу форму к любому окну, нужно знать только HWND этого окна.
Комментарии