جلوگیری حرکت TaskBar هنگام تغییر Resolution

[hadi55]

با سلام
با تغییر Resolution در برنامه TaskBar ویندوز هم جابجا میشود و این توی برنامه اصلا جالب نیست . حتی با Refresh کردن فرم هم TaskBar به پایین Desktop منتقل نمیشود.

[مهدی کرامتی]

دستوری که برای تغییر رزولوشن استفاده میکنید چیست؟

[turk_programmer]

1- فرمت رو stay on top انتخاب کن.
2- با screen.width , screen.hight رزولیشن اولیه رو ذخیره کن.
3- بعدش با کد زیز تغییر Resolation بده.


procedure SetResolution(ResX, ResY: integer);
var
lDeviceMode : TDeviceMode;
begin
EnumDisplaySettings(nil, 0, lDeviceMode);
lDeviceMode.dmFields:=DM_PELSWIDTH or DM_PELSHEIGHT;
lDeviceMode.dmPelsWidth :=ResX;
lDeviceMode.dmPelsHeight:=ResY;
ChangeDisplaySettings(lDeviceMode, 0);
end;

قبل از خارج شدن از برنامه هم دوباره Resolation قبلی رو برگردون سر جاش.
اینو امتحان کن ببین بازم مشکلی پیش میاد ؟

[مهدی کرامتی]

برای حل مشکل جابجا شدن Taskbar پارامتر دوم دستور

ChangeDisplaySettings(lDeviceMode, 0);
را برابر 1 قرار دهید.