جلوگیری از جابجایی فرم یا همون درگ کردن فرم

[farzadkamali]

با سلام خدمت دوستان و اساتید
تا جایی جست و جو کردم با دستور زیر میشه این کار رو کرد. یعنی از درگ شدن یه فرم جلوگیری کرد. اما هر کار می کنم جواب نمیده.


private
{ Private declarations }
procedure WMNCHitTest(var Message: TWMNCHitTest); message WM_NCHITTEST;

procedure Tsale.WMNCHitTest(var Message: TWMNCHitTest);
begin
inherited;

with Message do
if Result = HTCAPTION then
Result := HTNOWHERE;
end;


توجه : نمی خوام خاصیت align رو alclient کنم و همچنین نمی خوام borderStyle رو روی none قرار بدم

[loo30fer]

میتونید از این کد استفاده کنید:
private
{ Private declarations }
procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND;
procedure TForm1.WMSysCommand(var Msg: TWMSysCommand);
begin
if ((Msg.CmdType and $FFF0) = SC_MOVE) or
((Msg.CmdType and $FFF0) = SC_SIZE) then
begin
Msg.Result := 0;
Exit;
end;
inherited;
end;