saeed6162
چهارشنبه 19 خرداد 1389, 10:11 صبح
سلام به همه ی دوستان
مشکلی که برای من پیش اومده اینه:
من از کامپوننت AlphaSkin توی برنامم استفاده می کنم ، و خاصیت ExtendedBorder مربوط به sSkinManager رو True قرار دادم و کد زیر رو هم برای فرمم نوشتم تا فرمم رو نشه حرکت داد:
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;
ولی کار نمی کنه ، یعنی از حرکت فرمم جلوگیری نمیشه و خیلی راحت میشه فرم رو حرکت داد.
این در حالیه که اگه ExtendedBorder رو False کنم ، قطعه کد عمل می کنه و فرم رو نمیشه حرکت داد.
نکته : من نمی خوام ExtendedBorder رو False کنم و بودنش برام خیلی مهمه.
اگه راه حلی به ذهنتون می رسه ممنون میشم من رو راهنمایی کنید.
مشکلی که برای من پیش اومده اینه:
من از کامپوننت AlphaSkin توی برنامم استفاده می کنم ، و خاصیت ExtendedBorder مربوط به sSkinManager رو True قرار دادم و کد زیر رو هم برای فرمم نوشتم تا فرمم رو نشه حرکت داد:
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;
ولی کار نمی کنه ، یعنی از حرکت فرمم جلوگیری نمیشه و خیلی راحت میشه فرم رو حرکت داد.
این در حالیه که اگه ExtendedBorder رو False کنم ، قطعه کد عمل می کنه و فرم رو نمیشه حرکت داد.
نکته : من نمی خوام ExtendedBorder رو False کنم و بودنش برام خیلی مهمه.
اگه راه حلی به ذهنتون می رسه ممنون میشم من رو راهنمایی کنید.