delphi4ever
06-02-2008, 11:26 PM
السلام عليكم ورحمة الله تعالى وبركاته
هذا كود لجعل الفورم FullScreen في لغة التطوبر دلفي.
بعد إنشاء مشروع جديد في دلفي ، إضغط مرتين على الفورم واكتب الكود التالي:
كود :
[color=Black]var[/color]
HTaskbar: HWND;
OldVal: LongInt;
[color=Black]begin[/color]
[color=black]try[/color]
[color=Blue] // Find handle of TASKBAR[/color]
HTaskBar := FindWindow('Shell_TrayWnd', nil);
[color=blue]// Turn SYSTEM KEYS off, Only Win 95/98/ME[/color]
SystemParametersInfo(97, Word(True), @OldVal, 0);
[color=blue] // Disable the taskbar[/color]
EnableWindow(HTaskBar, False);
[color=blue] // Hide the taskbar[/color]
ShowWindow(HTaskbar, SW_HIDE);
[color=black]finally[/color]
[color=black]with [/color]Form1 [color=black]do [/color]
[color=black]begin[/color]
BorderStyle := bsNone;
FormStyle := fsStayOnTop;
Left := 0;
Top := 0;
Height := Screen.Height;
Width := Screen.Width;
[color=black]end[/color];
[color=black]end[/color];كود :
[color=black]var[/color]
HTaskbar: HWND;
OldVal: LongInt;
[color=black]begin[/color]
[color=blue] //Find handle of TASKBAR[/color]
HTaskBar := FindWindow('Shell_TrayWnd', [color=Black]nil[/color]);
[color=blue]//Turn SYSTEM KEYS Back ON, Only Win 95/98/ME[/color]
SystemParametersInfo(97, Word(False), @OldVal, 0);
[color=blue]//Enable the taskbar[/color]
EnableWindow(HTaskBar, True);
[color=blue]//Show the taskbar[/color]
ShowWindow(HTaskbar, SW_SHOW);
[color=black]end[/color];