السلام عليكم
ما هي طريقة تكبير الفورم ؟ مثلا عند الضغط عليه مرتين يقوم بملأ الشاشة كاملة وعند الضغط على الفورم مرتتي يعود الى حجمه الاصلي
البرنامج عبارة عن مشغل فيديو
وشكرا
السلام عليكم ورحمة الله وبركاته, هذا كود بسيط يشرح ذلك.
PHP كود :
var
Form1: TForm1;
width,heigth:integer;
implementation
{$R *.dfm}
procedure TForm1.FormDblClick(Sender: TObject);
begin
if form1.WindowState=wsnormal then
begin
width:=form1.Width;
heigth:=form1.Height;
form1.WindowState:= wsmaximized;
end
else
begin
form1.WindowState:=wsnormal;
form1.Width:=width;
form1.Height:=heigth;
end;
end;
وماذا عن وضع المكونات على الفورم حين يتغير حجمه
السلام عليكم ورحمة الله وبركاتة
إذا كنت تعمل على FM يوجد خاصية Boolean تقوم بتغييرها ليصبح الفورم بشكل الكامل
حالياً لا املك FM لكن إن لم تخني الذاكرة فهو IsFullScrean او قريب من هذا ^^"
أما إذا كنت تريد ان تعمل واحد خاص بك .. فسيتوجب عليك إستعمال بعض دوال API النظام
فمثلاً على نظام ويندوز يكون المثال كتالي :
في البداية نعرف متغير عام هكذا :
PHP كود :
FullScreen : Boolean = False;
ثم سنقوم بكتابة هذا الكود :
PHP كود :
if FullScreen = False then
begin
FullScreen := True;
// show Form1 with no Border
Form1.BorderStyle := bsNone;
//maximize the window
WindowState := wsMaximized;
//hide the title bar
SetWindowLong(Handle,GWL_STYLE,GetWindowLong(Handle,GWL_STYLE) and not WS_CAPTION);
//resize Height to let it get the new size with no Border
ClientHeight := Height;
end
else
begin
FullScreen := False;
//Normal the window
WindowState := wsNormal;
//show the title bar
SetWindowLong(Handle,gwl_Style,GetWindowLong(Handle,gwl_Style) or ws_Caption or ws_border);
Form1.BorderStyle := bsSizeable;
Height := Height + GetSystemMetrics(SM_CYCAPTION);
Refresh;
end;
سبق وأن استعملته عندما كنت اعمل على برنامج فيديو .. وكانت النتائج جيدة
بالتوفيق
---------------------------------------------------------
إقتباس : وماذا عن وضع المكونات على الفورم حين يتغير حجمه
ماذا تقصد ؟ ..
إذا كنت تقصد انه ستكون غير مرتبه فأستعمل خاصية Anchors لتحصل على ترتيب جيد للمكونات
كذلك يفضل ان تضع الـمكونات في TPanel لكي تتحكم بها بشكل اكبر عند وضعك لنمط الشاشة الكاملة
فيمكنك إخفائها وإظهارها متى ما اردت