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

[Pichidehtarin]

با سلام
من یه پنجره سفارشی درست کردم
با استفاده از 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 رو اینجا خواهم گذاشت .

متشکرم .

[_alish_]

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

procedure TForm1.FormResize(Sender: TObject);

begin

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

  Abort;

end;

[Pichidehtarin]

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

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

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

بازم متشکرم .

[_alish_]

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

[Pichidehtarin]

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

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

[omidsm]

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

[Pichidehtarin]

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

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

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

[Pichidehtarin]

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

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

[omidsm]

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

[Pichidehtarin]

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

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