در دست گیری محدویت پنجره ها در فرم های ReSizeable سفارشی

با سلام
من یه پنجره سفارشی درست کردم
با استفاده از BoundsRect عملیات ReSizeable رو انجام دادم مثلا برای تغییر اندازه سمت چپ پنجره کد زیر رو نوشتم:

procedure TMainForm.LeftPanelMouseMove(Sender: TObject; Shift: TShiftState;

  X, Y: Integer);

var

  RX : TRect;

begin

  if ssLeft in Shift then begin

    RX := BoundsRect;

    RX.Left := Mouse.CursorPos.X;

    BoundsRect := RX;

  end;

end;

وبه همین ترتیب برای جا های دیگه .

اما این کد با محدودیت پنجره (Min Width ، MinHeight) مشکل داره
چطوری میتونم مشکل رو بر طرف کنم ؟

اگه این مشکل برطرف بشه واقعا پنجره خوبی در میاد که من Source رو اینجا خواهم گذاشت .

متشکرم .

ببین با این حل می شه

procedure TForm1.FormResize(Sender: TObject);

begin

if (BoundsRect.Bottom-BoundsRect.Top)<Constraints.MinHeight then

  Abort;

end;

شما باید کد من رو امتحان کنید تا جریان رو متوجه بشید :

بعد از اینکه اندازه برابر با محدودیت میشه فرم حرکت میکنه .

در ضمن یکه کد دقیق میخوام که پنجره یه مقدار هم جابجایی نداشته باشه .

بازم متشکرم .

منظور از حرکت چیه ؟

نقل قول:

---

منظور از حرکت چیه ؟

---

حرکت = جابجایی

بله در حالت عادی هم این اتفاق در بعضی جهات میافتهههههه

نقل قول:

---

بله در حالت عادی هم این اتفاق در بعضی جهات میافتهههههه

---

منظور شما از حالت عادی چیه ؟

پنجره های معمول ویندوز ؟؟؟؟؟!!!!!!!!

آقا مثل اینکه درسته :متفکر: :o

پس پنجره ای که من ساختم درست کار میکنه .

پس آفرین به شما :D

عکسش رو تو این تاپیک گذاشتم :

http://www.barnamenevis.org/viewtopic.php?t=14588