ایجاد حالت dragmode برای qrdbtext

[فرید اسدی]

با عرض سلام خدمت شما عزیزان

من می خواستم برای شی qrdbtext رویداد onmousedown و خاصیت dragmode ایجاد کنم برای اینکه می خواهم
کاربر بتواند در هنگام اجرای برنامه نحوه چیدمان فیلدها را عوض کند
من رویداد onmousedown و خاصیت dragmode را برای این شی ایجاد کردم ولی موفق به تغییر مکان qrdbtex در زمان اجرای برنامه نشدم
const
sc_daragmove=$f012
begin
ReleaseCapture ;
tqrdbtext11(Sender).Perform(WM_SYSCOMMAND,sc_darag move,0);
end;
لطفا مرا راهنمائی کنید .

با تشکر :تشویق: