Home » Tipps & Tricks » Komponenten » TForm » Fenster auch im Client-Bereich verschieben

Fenster auch im Client-Bereich verschieben

Kennst Du nicht auch den Special-Effekt bei WinAMP, das Fenster überall verschoben werden kann und nicht nur an der Titelleiste? Mit dieser Windows-Message kannst Du das auch.Diese Procedure musst Du im Private-Abschnitt deklarieren:

procedure WMNCHitTest(var M: TWMNCHitTest); 
  message wm_NCHitTest;

Und hier die eigentliche Implementation der Procedure:

procedure TForm1.WMNCHitTest (var M: TWMNCHitTest);
begin
  inherited;
  if M.Result = htClient then 
    M.Result := htCaption;
end;

htClient gibt an, dass Du dich im normalen Bereich Deiner Anwendung befindest, also nicht die Titelleiste bewegst.Mit htCaption wird die Titelleiste angesprochen und diese soll emuliert werden.