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;
  
  

  
  

Pratite Krstaricu na www.krstarica.com