Как прикрепить свою форму к другому приложению?

Материал из DRKB

Как прикрепить свою форму к другому приложению?[править | править код]

Для этого Вам понадобится переопределить процедуру CreateParams у желаемой формы. А в ней установить params.WndParent в дескриптор окна, к которому Вы хотите прикрепить форму.


  TForm2 = class(TForm) 
  protected 
    procedure CreateParams(var params: TCreateParams); override; 

implementation

procedure TForm2.CreateParams(var params: TCreateParams); 
var 
  aHWnd: HWND; 
begin 
  inherited; 
  { как-нибудь получаем существующий дескриптор }
  ahWnd := GetForegroundWindow; 
  { а теперь: }
  params.WndParent := ahWnd; 
end;


Source: Взято из http://forum.sources.ru
ID: 00507