جلوگیری از جابجایی فرم

[nasr]

سلام

چطور می تونم کاری کنم که فرم جابجا نشه؟

ممنون

[green.puku]

اگر منظورتون اينه كه وقتي فرم نشان داده مي شه محلش ثابت باشه مي توانيد خاصيت position فرم را به محل مورد نظر تغيير بديد يا خاصيت Left و Top فرم را به دلخواه خود تغيير دهيد

[green.puku]

اگر هم منظورتون اينه كه كلا كاربر نتونه جاي فرم را عوض كنه با تغيير خاصيت BorderStyle به bsNone ديگه كاربر نميتونه فرم را جابجا كنه

[nasr]

منظورم دومین مورد بود یعنی کاربر نتونه جابجاش کنه ولی نمیخوام BorderStyle را bsNoneکنم

[جواد ملاولی]

منظورم دومین مورد بود یعنی کاربر نتونه جابجاش کنه ولی نمیخوام BorderStyle را bsNoneکنم

سلام. خاصیت Align فرم رو روی alcustom قرار بدید.

[AhmadYousefi]

procedure WMNCHitTest(var Message: TWMNCHitTest); message WM_NCHITTEST;

procedure TForm1.WMNCHitTest(var Message: TWMNCHitTest);
begin
inherited;
with Message do
if Result = HTCAPTION then
Result := HTNOWHERE;
end;