Как привязать форму к другому окну
В примере мы прикрепляем нашу форму к окну программы Калькулятор. Теперь форма становится дочерней по отношению к окну Калькулятор.
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 этого окна.
Комментарии