Eigentlich ist das doch recht einfach zu erstellen.
Dazu den Borderstyle im
OI auf bsNone stellen und die Form der Form von
Hand festlegen.
Delphi-Quellcode:
type
TForm1 = class(TForm)
// ...
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
procedure CreateParams(var Params: TCreateParams); override;
procedure WMNCHitTest(var Message: TWMNCHitTest); message WM_NCHITTEST;
end;
// ...
implementation
// ...
procedure TForm1.CreateParams(var Params: TCreateParams);
begin
inherited;
Params.Style := WS_POPUP or WS_THICKFRAME;
Params.ExStyle := WS_EX_TOOLWINDOW;
end;
procedure TForm1.WMNCHitTest(var Message: TWMNCHitTest);
begin
inherited;
Message.Result := htClient;
end;
Wie der "originale" Windowsstyle ist kann man leider nur vermuten, da es sich nicht um irgend welche
besonderen Windowsstyle-Eigenschaften handelt (Bild).
Möglicher weise wird das MS so oder anders machen...
