Meinst Du so einen Effekt?
Delphi-Quellcode:
unit Unit2;
interface
uses
Windows, Messages, Classes, Controls, Forms, Dialogs;
type
TForm2 =
class(TForm)
private
{ Private declarations }
public
{ Public declarations }
procedure CreateParams(
var Params: TCreateParams);
override;
end;
var
Form2: TForm2;
implementation
{$R *.dfm}
procedure TForm2.CreateParams(
var Params: TCreateParams);
begin
inherited CreateParams(Params);
if Assigned(Application.MainForm)
then
begin
Params.Style := Params.Style
or WS_CHILD;
Params.WndParent := Application.MainForm.Handle;
end;
end;
end.
Unit1 ist in diesem Falle die MainForm...