دخول

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];

بعدها نذهب إلى الحدث OnClose الخاص بالفورم نفسها Form ونكتب الكود التالي:

كود :
[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];

وبالتوفيق للجميع

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة