15 мая "Исходники.РУ" отмечают 20-летие присутствия в сети!
Поздравляем всех причастных и неравнодушных с юбилеем сайта!
И огромное спасибо всем, кто был с нами все эти годы!

Главная Форум Журнал Wiki DRKB Discuz!ML Помощь проекту


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

Компилятор: Delphi

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