Показать сообщение отдельно
  #13  
Старый 26.09.2009, 23:19
Prof-x Prof-x вне форума
Прохожий
 
Регистрация: 24.09.2009
Сообщения: 8
Репутация: 10
По умолчанию

А вот это не решит проблему, или я что-то не так понял.
Код:
Как прикрепить свою форму к другому приложению 
--------------------------------------------------------------------------------


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

 
Ответить с цитированием