ورود

View Full Version : مشکل در مورد از بین بردن Task Bar


abedi vida
شنبه 27 تیر 1383, 12:01 عصر
سلام من این موضوع را قبلا سرچ کردم و این ستورات را اجرا کردم اما به مسکل رفتن به فرم دیگه رو ÷یدا کردم یعنی اگر روی button که توی ارون دستور form2.show رو نوشتم کلیک کنم هیچ اتفاقی نمی افته
دستور:پنجره Full Screen
دوستان عزیز لطفا راهنمایی کنید که چطور میشه پنجره ای رو طوری Full Screen کرد که منوی Taskbar ویندوز هم نمایش داده نشه

یعنی فول اسکرینه فول اسکرین
در فرم اصلی می توانید پنجره را بصورت Maximizedبازکنید و alwaysOnTop


procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.Top:=0;
Form1.Left:=0;
Form1.Width:=screen.Width;
Form1.Height:=screen.Height;
Form1.FormStyle:=fsStayOnTop;
end;


var MyHandle:Thandle
Begin
MyHandle := findwindow('shell_traywnd',nil);
ShowWindow(MyHandle,sw_hide);
End;
کد فوق در قسمت آن شو نوشته شود.

ShowWindow(MyHandle,sw_show);
این کد هم در آن کلوز فرم نوشته شه.
مهدی کرامتی
شنبه 27 تیر 1383, 12:50 عصر
1- به این دلیل فرم دوم شما نمایش داده نمیشود که فرم اول دارای خاصیت StayOnTop است.

2- این کد ها را ببینید:

procedure EnableTASKBAR(Enable : boolean);
var
hTASKBARWindow : HWnd;
begin
hTASKBARWindow:=FindWindow('Shell_TrayWnd',nil);
if hTASKBARWindow<>0 then
EnableWindow(hTASKBARWindow,Enable);
end;

procedure ShowTASKBAR(Visible: boolean);
var
hTASKBARWindow : HWnd;
begin
hTASKBARWindow:=FindWindow('Shell_TrayWnd',nil);
if hTASKBARWindow<>0 then
if Visible then
ShowWindow(hTASKBARWindow, SW_SHOW)
else
ShowWindow(hTASKBARWindow, SW_HIDE)
end;

با پارامترهای این توابع (که False و True میتواند باشد) بازی کنید و لذت ببرید.

نمونه برنامه استفاده از این توابع ضمیمه شده است.
abedi vida
شنبه 27 تیر 1383, 22:33 عصر
سلام.

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

حالا چه کنم؟

دوست عزیز، لطفا فارسی بنویسید.
متن شما به فارسی ترجمه شد!
مهدی کرامتی
یک شنبه 28 تیر 1383, 00:08 صبح
کاری نداره. تو OnShow فرمتون این دستور را بنویسید:

ShowTaskBar(False);
abedi vida
یک شنبه 28 تیر 1383, 12:33 عصر
سلام.

:oops: من میخواهم با باز شدن فرم اینکار انجام بشه، در حالی که شما اینکارو تو چک باکس انجام دادید.

حالا چه کنم؟

دوست عزیز، لطفا فارسی بنویسید.
متن شما به فارسی ترجمه شد!
شرمنده اون روز فونت فارسی نداشتم
abedi vida
یک شنبه 28 تیر 1383, 12:49 عصر
کاری نداره. تو OnShow فرمتون این دستور را بنویسید:

ShowTaskBar(False);
سلام من تو قسمت آن شو <span dir=ltr>ShowTaskBar(False);</span> رو نوشتم ولی ایراد گرفت.
مهدی کرامتی
یک شنبه 28 تیر 1383, 13:56 عصر
مثال رو اصلاح کردم. امیدوارم مفهوم شود.
abedi vida
یک شنبه 28 تیر 1383, 23:10 عصر
ممنون مشکلم حل شد :)