Du zeigst aber trotzdem ein Form an oder.
Delphi-Quellcode:
private
procedure WMNCHitTest(var M: TWMNCHitTest); message WM_NCHitTest;
..
procedure TForm1.WMNCHitTest (var M: TWMNCHitTest);
begin
inherited;
if M.Result = htClient then
M.Result := htCaption;
end;
Hoffe es hilft, hatte noch nie was mit
nonvcl am Hut.