PDA

View Full Version : پنجره Full Screen



Dracula
یک شنبه 18 خرداد 1382, 12:20 عصر
با سلام
دوستان عزیز لطفا راهنمایی کنید که چطور میشه پنجره ای رو طوری Full Screen کرد که منوی Taskbar ویندوز هم نمایش داده نشه

یعنی فول اسکرینه فول اسکرین

متشکرم .

JavanSoft
یک شنبه 18 خرداد 1382, 13:55 عصر
در فرم اصلی می توانید پنجره را بصورت Maximizedبازکنید و alwaysOnTop

Dracula
یک شنبه 18 خرداد 1382, 17:09 عصر
مرسی دوست عزیز

ولی راهی غیر از این هم هست ؟

مهدی کرامتی
یک شنبه 18 خرداد 1382, 17:35 عصر
procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.Top:=0;
Form1.Left:=0;
Form1.Width:=screen.Width;
Form1.Height:=screen.Height;
Form1.FormStyle:=fsStayOnTop;
end;

SyntaxCheck
یک شنبه 18 خرداد 1382, 23:19 عصر
var MyHandle:Thandle
Begin
MyHandle := findwindow('shell_traywnd',nil);
ShowWindow(MyHandle,sw_hide);
End;
کد فوق در قسمت آن شو نوشته شود.


ShowWindow(MyHandle,sw_show);
این کد هم در آن کلوز فرم نوشته شه.
کد های بالا جهت تکمیل فرمایشات دوستان و برای مخفی کردن تسک بار ویندوز میباشد و به نقل از Maysam از برو بچه های دلفی کار.در ضمن اسیستانت عزیز فکر میکنم اگر پنجره بصورت Maximized باز بشه برای فول اسکرین کردن همراه FsStayOnTop کافی باشه و مقدار دهی طول و عرض به طول و عرض اسکرین موردی نداشته باشه.

Dracula
دوشنبه 19 خرداد 1382, 10:28 صبح
دوستان عزیز متشکرم .