Cave_Man
چهارشنبه 29 اسفند 1386, 09:07 صبح
ممکنه خیلی از دوستان بخان یکی از فرم های برنامشون در Desktop نه تنها بالای بقیه فرم های اون App قرار بگیره بلکه میخان اون فرمشون بالای پنجره بقیه برنامه ها هم باشه
با استفاده از خاصیت StayonTop که در فرم ها هست فقط فرم ما نسبت به بقیه فرم های همون App بالا قرار میگیره
کد دو خطی که در سایت About هست این کار رو به زیبایی انجام میده.
procedure TForm1.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
with Params do begin
ExStyle := ExStyle or WS_EX_TOPMOST;
WndParent := GetDesktopwindow;
end;
end;
متن کامل توضیحات اینجا (http://delphi.about.com/od/formsdialogs/l/aa073101a.htm) هست
در ضمن اگه بخاید فقط فرم اصلی رو StayOnTop کنید که بالای بقیه App قرار بگیره همین یک خط کد زیر کافیه که در رویداد OnShow فرم اصلی باشه..
SetWindowPos(Application.Handle,HWND_TOPMOST, 0, 0, 0, 0,SWP_NOACTIVATE+SWP_NOMOVE+SWP_NOSIZE);
با استفاده از خاصیت StayonTop که در فرم ها هست فقط فرم ما نسبت به بقیه فرم های همون App بالا قرار میگیره
کد دو خطی که در سایت About هست این کار رو به زیبایی انجام میده.
procedure TForm1.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
with Params do begin
ExStyle := ExStyle or WS_EX_TOPMOST;
WndParent := GetDesktopwindow;
end;
end;
متن کامل توضیحات اینجا (http://delphi.about.com/od/formsdialogs/l/aa073101a.htm) هست
در ضمن اگه بخاید فقط فرم اصلی رو StayOnTop کنید که بالای بقیه App قرار بگیره همین یک خط کد زیر کافیه که در رویداد OnShow فرم اصلی باشه..
SetWindowPos(Application.Handle,HWND_TOPMOST, 0, 0, 0, 0,SWP_NOACTIVATE+SWP_NOMOVE+SWP_NOSIZE);