كيف أحرك فورم بواسطة عنصر بداخلها

[saozar ameen]

كثيرا ما أضطر لأضع القيمة bsNone للخاصية BorderStyle

وهنا لن أستطيع تحريك الفورم بدون الأطار

فماذا أفعل لكي أحرك الفورم عن طريق عنصر بداخلها

[mobile]

ضع صورة وفي الحدث OnMouseMouve

if ssLeft in Shift then
begin
ReleaseCapture;
Perform(WM_SYSCOMMAND, $F012, 0);
if Top < 0 then Top := 0;
if Top + Height > Screen.Height then Top := Screen.Height - Height;
if Left < 0 then Left := 0;
if Left + Width > Screen.Width then Left := Screen.Width - Width;
end;

[saozar ameen]

مشكوووور أخي كتير بس ممكن تشرحلي الكود