جعل الفورم في مقدمة النوافذ و تحريكها مثل OnMoveWindow

[ALmuhhnad]

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

لدي نافذة وقد اعطيتها الخاصية
BroderStyle=bsNone
المراد هو ان اجعل هذا الفورم يكون في مقدمة الونافذ في برنامجي فقط
حيث يوجد عدة نوافذ في هذا البرنامج وأريـ ـد لهذا الفورم ان يكون في مقدمتها دوماً ولا يكون في مقدمة البرامج الآخرى

السؤال الآخر .. ابحث عن الحدث خاص بتحريك النافذة أي عندما اقوم بنقل النافذة من مكان إلى آخرى على الشاشة يتم حدث .. كمثال OnMoveWindow
وإن لم يكن موجود كيف اعمل مثل هذا الحدث ^^


وشكراً لحسن القراءة

[Lam.Abdeldjalil]

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

كود :

المراد هو ان اجعل هذا الفورم يكون في مقدمة الونافذ في برنامجي فقط

formStyle=fsStayOnTop

ابحث عن الحدث خاص بتحريك النافذة أي عندما اقوم بنقل النافذة من مكان إلى آخرى على الشاشة يتم حدث

كود :

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); const SC_DRAGMOVE = $F012; begin if Button = mbLeft then begin ReleaseCapture; Perform(WM_SYSCOMMAND, SC_DRAGMOVE, 0); end; end;

كود :

http://stackoverflow.com/questions/10921093/move-form-without-border-style

باتلوفيق

[ALmuhhnad]

أوه ^^" .. كنت اضن أن formStyle=fsStayOnTop تعمل على حميع البرامج عذراً على هذا السؤال .. وشكراً على الاجابة

لكن ماذا عن إذا كنت أريـ ـد تحرك النافذة الرئيسية وجعل النوافذ الاخرى تتحرك معها .. لذلك قصدت الحدث OnMoveWindow

كمثال .. لدي نافذتين .. النافذة الرئيسية تملك إطار اما الآخرى لا تملك ايطار .. وانا اريـ ـد عندما اقوم بتحرك النافذة الرئيسية تتحرك النافذة اللتي لا تملك إطار معها

[Lam.Abdeldjalil]

مثال (Form1 هي الرئيسية ) :

كود :

TForm1 = class(TForm) procedure FormShow(Sender: TObject); private procedure WMMove(var Message: TMessage) ; message WM_MOVE; public iIniLeft,iIniTop: integer;

كود :

procedure TForm1.FormShow(Sender: TObject); begin iIniLeft:=Form2.Left-left; iIniTop:=Form2.Top-Top; end; procedure TForm1.WMMove(var Message: TMessage); begin Form2.Left:=iIniLeft+TWMMove(Message).XPos; Form2.Top:=iIniTop+TWMMove(Message).YPos; end;

بالتوفيق

[ALmuhhnad]

شكراً اخي على الكود .. يعمل بكفائة

لكن هذا يعمل مع Windows .. فقط ؟

وكذلك كيف اعرف طرق التعامل مع النظام مثل هذه الحالة ؟

[ALmuhhnad]

بالنسبة للمثال الذي كتبت .. عندما اقوم بتشغيل البرنامج .. تظهر رسالة خطاء تحتوي :

PHP كود :

Access violation at address 005D86B4 in module 'project.exe'. Read of address 0000001C. 


وموقع الخطاً يكون هنا :

PHP كود :

procedure TCustomForm.SetTop(Value: Integer);
begin
  if (csDesigning in ComponentState) and (Parent <> nil) then  //<< ----- Error
  begin
    DesignInfo := (DesignInfo and $FFFF0000) or (Cardinal(Value) and $FFFF);
    if not (csLoading in ComponentState) and (Position <> poDefaultSizeOnly) then
      Position := poDesigned;
  end else
    inherited Top := Value;
end; 


علماً ان الخطاء يظهر وقت تنفيذ البرنامج فقط ..
ما سبب الخطاء .. وشكراً

قمت بتجربة الكود على D7 , D XE4 ونفس الخطاء يظهر

[ALmuhhnad]

وجدت الاجابة هنا :

PHP كود :

http://delphi.about.com/od/windowsshellapi/a/dragnocaption.htm 


شبيهي بالمثال الذي ذكرت لكن على ما يبدو ان النوع المستعمل في الدالة مختلف عن ما ذكرت
لكني إلى الان لا اعرف سبب الخط الذي حدث لي مع مثالك

[ALmuhhnad]

قمت بتبديل الدالة إلى :

PHP كود :

procedure WMMove(var Msg: TWMMoving) ; message WM_MOVING; 


كي تعمل مع تحريك النافذة

[Lam.Abdeldjalil]

السلام عليكم

لكن هذا يعمل مع Windows .. فقط ؟

نعم خاص بـ Windows فقط

كود :

http://msdn.microsoft.com/en-us/library/windows/desktop/ms632631%28v=vs.85%29.aspx

هل تخلصت من رسالة الخطأ ؟ (لا أملك دلفي للتجريب )

[ALmuhhnad]

هل تخلصت من رسالة الخطأ ؟

نعم عندما قمت بتغيير WM_MOVE إلى WM_MOVING .. لم يظهر الخطاء
على ما يبدو ان له طريقة استعمال خاصة او انه يوجد Bug