+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : دروس دلفي للمبتدئين (https://delphi4arab.net/forum/forumdisplay.php?fid=13)
+--- الموضوع : Full Screen للفورم في دلفي. (/showthread.php?tid=10)
Full Screen للفورم في دلفي. - delphi4ever - 06-02-2008
السلام عليكم ورحمة الله تعالى وبركاته
هذا كود لجعل الفورم 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];Full Screen للفورم في دلفي. - hanipino - 28-02-2011
السلام عليكم
يمكن ايضا بهذه الطريقة
كود :
procedure TForm1.FormCreate(Sender: TObject);
begin
ShowWindowAsync(Handle, SHOW_FULLSCREEN);
SetWindowLong(Handle, GWL_STYLE, WS_MAXIMIZEBOX); {!!!!}
end;end;Full Screen للفورم في دلفي. - slman - 06-03-2011
الف شكر اخي ولكن اذا اردت ان اعمل مكون ويب برزر ان يتناسب مع الفورم كيف اعمل هذا وما هو الكود
Full Screen للفورم في دلفي. - kachwahed - 06-03-2011
إقتباس :يتناسب مع الفورمألق نظرة:
http://www.delphi4arab.net/forum/showpost.php?p=24069&postcount=16