StayOnTop به معنای واقعی
ممکنه خیلی از دوستان بخان یکی از فرم های برنامشون در 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;
متن کامل توضیحات اینجا هست
در ضمن اگه بخاید فقط فرم اصلی رو StayOnTop کنید که بالای بقیه App قرار بگیره همین یک خط کد زیر کافیه که در رویداد OnShow فرم اصلی باشه..
SetWindowPos(Application.Handle,HWND_TOPMOST, 0, 0, 0, 0,SWP_NOACTIVATE+SWP_NOMOVE+SWP_NOSIZE);
پاسخ با نقل قول
نوشته شده توسط hr110
حتما
