Как прикрепить свою форму к другому приложению
Для этого Вам понадобится переопределить процедуру 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;
|
|
|
|
|
Стойки и подставки для цветов - горшки цветочные. . печать плакатов формата а3 в 1 экземпляре . Кресла для персонала - офисные кресла. . Большой выбор прихожих - мебель для прихожей на заказ. Недорогая мебель в Москве. . Шины и диски с доставкой: шины б/у. Зимние шины Continental. . |
