╧σ≡σΣΓΦµσφΦσ ⌠ε≡∞≤δ ≡α

╩αΩ ±Σσδα≥ⁿ Γετ∞εµφ√∞ ∩σ≡σΣΓΦµσφΦσ ⌠ε≡∞√ σ±δΦ ∩εδⁿτεΓα≥σδⁿ ∙σδΩφ≤δ Γ ⌠ε≡∞≤ Γφσ ∩≡ε±≥≡αφ±≥Γα ταπεδεΓΩα?

┬ ±δσΣ≤■∙σ∞ ∩≡Φ∞σ≡σ ∩εΩαταφε ΩαΩ ∞εµφε ∩σ≡σΣΓΦπα≥ⁿ ⌠ε≡∞≤ σ±δΦ ∩εδⁿτεΓα≥σδⁿ "τα⌡Γα≥Φδ" Client-∩≡ε±≥≡αφ±≥Γε. ═αΦßεδσσ ∩≡ε±≥εσ ≡σ°σφΦσ - "εß∞αφ≤≥ⁿ" Windows Φ Client-∩≡ε±≥≡αφ±≥Γε Γ√Σα≥ⁿ τα ταπεδεΓεΩ εΩφα.


unit DragMain;

interface

uses
  SysUtils, WinTypes, WinProcs,  Messages,
  Classes, Graphics, Controls, Forms, Dialogs, StdCrtls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure ButtonClick(Sender: TObject);
  private	
    procedure WMNCHitTest(var M: TWMNCHitTest);
                 message wm_NCCHitTest;
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1. WMNCHitTest(var M: TWMNCHitTest); 

begin
  inherited;
  if M.Result = htClient then
    M.Result := htCaption;
end;


procedure TForm1.Button1Click(Sender: TObject);

begin
  Close;
end;

end.

╤εΓσ≥√ φα≈Φφα■∙Φ∞