Moin phXql,
fang doch WM_NCHITTEST ab, und für den Fall, das jemand in die Titelleiste klickt wird zurückgegeben, dass es im Clientbereich war
Delphi-Quellcode:
type
TForm1 = class(TForm)
private
public
procedure WMNCHITTEST(var msg : TMessage); message WM_NCHITTEST;
end;
implementation
procedure TForm1.WMNCHITTEST(var msg: TMessage);
begin
inherited;
if msg.Result = HTCAPTION then msg.Result := HTCLIENT;
end;
PS:
Über das Systemmenü des Formulares geht es dann allerdings immer noch
Seltsamer Weise funktioniert
EnableMenuItem(GetSystemMenu(self.Handle,false),SC_MOVE,MF_BYCOMMAND or MF_GRAYED);
nämlich nicht. Mit SC_CLOSE ginge es
