Full Screen للفورم في دلفي.

[delphi4ever]

السلام عليكم ورحمة الله تعالى وبركاته

هذا كود لجعل الفورم 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];

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

[hanipino]

السلام عليكم

يمكن ايضا بهذه الطريقة

كود :

procedure TForm1.FormCreate(Sender: TObject); begin ShowWindowAsync(Handle, SHOW_FULLSCREEN); SetWindowLong(Handle, GWL_STYLE, WS_MAXIMIZEBOX); {!!!!} end;end;

[slman]

الف شكر اخي ولكن اذا اردت ان اعمل مكون ويب برزر ان يتناسب مع الفورم كيف اعمل هذا وما هو الكود

[kachwahed]

يتناسب مع الفورم

ألق نظرة:
http://www.delphi4arab.net/forum/showpos...stcount=16