Delphi - Prevlačenje prozora, klikom na bilo koji deo prozora

Svi korisnici su navikli na samo jedan način premeštanja aplikacionog prozora, i to klikom na naslovnu liniju (titlebar) i prevlačenjem na novu željenu poziciju. Ipak, korisnicima vaših programa možete omogućiti i da vrše premeštanje prozora, klikom na bilo koji deo aplikacione forme, a ne samo na titlebar. Ovaj efekat se može preporučiti kada prozor vaše aplikacije ima male dimenzije, kao npr. WinAmp. Ono što treba da uradite je sledeće:

• Dodajte naredni programski kod u sekciju "Private declarations" vaše forme:
  

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

• Naredni kod dodajte u sekciju "Implementation" vašeg form unit-a:
  

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