Ganz dolles Danke!
Ich stelle es nochmal rein, falls jemand anderes etwas Funktionierendes sucht:
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;