Ich gehe davon aus, daß er das meint:
Delphi-Quellcode:
unit Unit1;
interface
uses
Windows, Classes, Controls, Forms;
type
TForm1 =
class(TForm)
private
{ Private declarations }
public
{ Public declarations }
procedure CreateParams(
var Params: TCreateParams);
override;
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.CreateParams(
var Params: TCreateParams);
begin
// inherited first!
inherited CreateParams(Params);
// only for testing purposes...
if (Params.WndParent = Application.Handle)
then
begin
// child window of the desktop window
Params.WndParent := GetDesktopWindow();
Params.Style := Params.Style
or WS_CHILD;
end;
end;
end.
TForm ist aber nicht dafür gedacht - hat also diverse Nebenwirkungen.