کمک برای قرار دادن برنامه روی تمام پنجره ها ویندوز

[samanss]

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

[vcldeveloper]

WindowState := wsStayOnTop

[samanss]

ببخشید اقای کشاورز ممنون میشم اگه درباره اینکه چطور از این کد استفاده کنم توضیح بدید.

[vcldeveloper]

WindowState یکی از خصوصیان کلاس TForm هست، پس می تونید در داخل سورس فرم خودتان با از طریق یک فرم دیگه، به آن مقدار بدید.

[etoshey]

فکر نکنم wsStayOnTop قبول کنه. formstyle تغییر بدین stayontop میشه ولی نه برای تسک منیجر

[samanss]

من با دلفی 2007 کار میکنم و windowstate این 3 گزینه رو فقط قبول میکنه
1 wsmaximized
2 wsminimized
3 wsnormal
کار دیگه نیست بتونم این کار رو انجام بدم.

باتشکر از شما دوستان سامان.

[samanss]

من سورس vb شو دارم ولی می خوام با دلفی انجامش بدم.
سورس رو میزارم لطفا اگه کسی میتونه اونو تبدیل کنه به دلفی.

[hp1361]

سلام

فکر کنم منظور آقای کشاورز FormStyle=fsStayOnTop باشه

موفق باشی

[Felony]

به وسیله ی خاصیت WindowsState میتوان فرم را به حالت های Normal , Minimize , Maximize در آورد ، من هم فکر میکنم منظور آقای کشاورز FormStyle هست .

[vcldeveloper]

فکر نکنم wsStayOnTop قبول کنه. formstyle تغییر بدین stayontop میشه
بله، منظور FormStyle بود که اشتباها گفتم WindowState. مرسی که اصلاح کردید.

[samanss]

عزیزان خیلی ممنون .
ولی با استفاده از FormStyle فرم زیر بعضی برنامه ها می مونه مثل تسک منیجر
شما فایل exe رو که داخل فایل فشرده(s.rar) ضمیمه کردم نگاه کنید حتی تسک منیجر هم زیر اون قرار داره من اینجور کدی می خوام اگر بتونید این جور کدی برام بزارید ممنون مشم.

[etoshey]

من کد vb که گذاشتی رو نخوندم . از تایمر استفاده شود؟؟
البته یه پیشنهاده دارم. از تایمر استفاده کن و SetWindowPos

procedure TForm1.Timer1Timer(Sender: TObject);
begin
SetWindowPos( Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);
end;
و interval تایمرو کم کن

[manvaputra]

سلام دوست عزیز این کد رو توی onshow فرمت وارد کن:


SetWindowPos(Form1.Handle,
HWND_TOPMOST,
0, 0, 0, 0,
SWP_NOMOVE or SWP_NOSIZE or SWP_SHOWWINDOW);فقط دقت کن تو این مثال اسم فرمم فرم یک بوده اکه اسم فرمت چیز دیگست توی این خط اصلاحش کن

Form1.Handle

[etoshey]

نیازی به form1.handle نیست.handle کافی است و متد onshow عملی نیست. امتحان کردین؟؟

[manvaputra]

نیازی به form1.handle نیست.handle کافی است و متد onshow عملی نیست. امتحان کردین؟؟
سلام دوست عزیز آره من همیشه اول خودم تست می کنم و بعد جواب و پست می کنم اینبار هم همینطور تست کردم جواب هم داد اینجا! الان برای اطمینان مجددا چک کردم و جواب گرفتم از تسک منیجر هم بالاتره

[Felony]

سلام دوست عزیز آره من همیشه اول خودم تست می کنم و بعد جواب و پست می کنم اینبار هم همینطور تست کردم جواب هم داد اینجا! الان برای اطمینان مجددا چک کردم و جواب گرفتم از تسک منیجر هم بالاتره

کد شما کارمیکنه ، ولی TaskManager بالاتره !

[samanss]

اقای etodhey عزیز دستت دردنکه جواب داد خیلی ممنون.
اقای manvaputra دست شما هم درد نکه ولی وقتی که کد رو تو قسمت onshow میزاری فقط بار اول بالاتر از پنجره تسک منیجر قرار میگیره که اگه تو تایمر بزاری و interval شو هم
کم کنی جواب میده.
از بقیه هم که کمک کردن ممنونم. :تشویق:

[manvaputra]

کد شما کارمیکنه ، ولی TaskManager بالاتره ! دوست عزیز یعنی چی کد من کار می کنه ولی TaskManagerبالاتره!

[manvaputra]

ولی وقتی که کد رو تو قسمت onshow میزاری فقط بار اول بالاتر از پنجره تسک منیجر قرار میگیره آها پس منظور شما این بود که کلا حتی اگه TaskManager رو هم باز کنیم کات این صفحه بالاتر از همه باشه بله تنها راه این کار همون تایمره موفق باشید

[vcldeveloper]

کد شما کارمیکنه ، ولی TaskManager بالاتره !
پنجره های StayOnTop بالای سایر پنجره ها قرار می گیرند. اگر دو یا چند پنجره خصوصیت StayOnTop داشته باشند، پنجره ایی که بعد از سایر پنجره ها نمایش داده شده، بالاتر از سایرین قرار میگیره، غیر از اینکه کاربر خودش یکی دیگه از سایر پنجره های StayOnTop را فعال کنه.