وبلاگ شخصی حامد شیرزاد
وبلاگ شخصی حامد شیرزاد
صفحات وبلاگ
نویسنده: حامد شیرزاد - ۱۳٩٠/٧/۱٢

private
procedure HitTest(Var Mes : TMessage);message Wm_NcHitTest;

And in implementation :

procedure HitTest(Var Mes : TMessage);
begin
inherited;
if Mes.Result=HtClient then
Mes.Result:=HtCaption;
end;

نویسندگان وبلاگ:
مطالب اخیر:
کدهای اضافی کاربر :