[xsfern]

Мне нужно привязать форму моей программы к окну HTML страницы

У меня есть листинг и он вроде правильный, но я не могу понять почему
у меня он не работает. Если есть варианты дайте другой листинг плз.


... = 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;