دلفي تعليم
مرحبا بكم ايها الزئر أو الزائرة الكريمين

رسم مربع بالفأرة

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

رسم مربع بالفأرة

مُساهمة  mah11 في 19/7/2013, 8:44 pm

بسم الله الرحمن الرحيم
والصلاة والسلام على أشرف المرسلين سيدنا محمد صلى الله عليه وسلم وعلى آله وصحبه أجمعين
الحمد لله نحمده ونستغفره ونعوذ بالله من شرور انفسنا وسيئات اعمالنا
وأشهد أن لا إله إلا الله وحده لا شريك له وأشهد أن محمدا عبده ورسوله

رسم مربع بالفأرة

ضع الفورم وحدد
StatusBar1
من مفتش الكائنات حدد
Panels
وانقر على ثلاث نقط المجاورة من المربع انقر على
Ajouter un nouveau
أو اضغط مفتاح الايضافة
Insert
ضف أربعة منها


الكود:

var  StartX, StartY: Integer; // delph.forumalgerie.net
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; // delph.forumalgerie.net
 Shift: TShiftState; X, Y: Integer); // delph.forumalgerie.net
begin
 StartX := X; // delph.forumalgerie.net
 StartY := Y; // delph.forumalgerie.net
end; // delph.forumalgerie.net

الكود:

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, // delph.forumalgerie.net
 Y: Integer); // delph.forumalgerie.net
begin
if ssLeft in Shift then
 begin
  if Y > StartY then
    begin
    StatusBar1.Panels[0].Text := 'Top: ' + IntToStr(StartY); // delph.forumalgerie.net
    StatusBar1.Panels[2].Text := 'Bottom: ' + IntToStr(Y); // delph.forumalgerie.net
    end
  else
    begin
    StatusBar1.Panels[0].Text := 'Top: ' + IntToStr(Y); // delph.forumalgerie.net
    StatusBar1.Panels[2].Text := 'Bottom: ' + IntToStr(StartY); // delph.forumalgerie.net
    end;
  if X > StartX then
    begin
    StatusBar1.Panels[1].Text := 'Left: ' + IntToStr(StartX); // delph.forumalgerie.net
    StatusBar1.Panels[3].Text := 'Right: ' + IntToStr(X); // delph.forumalgerie.net
    end
  else
    begin
    StatusBar1.Panels[1].Text := 'Left: ' + IntToStr(X); // delph.forumalgerie.net
    StatusBar1.Panels[3].Text := 'Right: ' + IntToStr(StartX); // delph.forumalgerie.net
    end; // delph.forumalgerie.net
 end; // delph.forumalgerie.net
end; // delph.forumalgerie.net

الكود:

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton; // delph.forumalgerie.net
 Shift: TShiftState; X, Y: Integer); // delph.forumalgerie.net
begin
 Form1.Canvas.Rectangle(StartX, StartY, X, Y); // delph.forumalgerie.net
 StatusBar1.Panels[0].Text := ''; // delph.forumalgerie.net
 StatusBar1.Panels[1].Text := ''; // delph.forumalgerie.net
 StatusBar1.Panels[2].Text := ''; // delph.forumalgerie.net
 StatusBar1.Panels[3].Text := ''; // delph.forumalgerie.net
end; // delph.forumalgerie.net


منتدى دلفي تعليم يرحب بكم
delph.forumalgerie.net


عدل سابقا من قبل mah11 في 24/5/2015, 2:40 pm عدل 1 مرات (السبب : تصحيح بعض المعلومات)

mah11
Admin

عدد المساهمات : 364
تاريخ التسجيل : 21/06/2013

http://delph.forumalgerie.net

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: رسم مربع بالفأرة

مُساهمة  sdk11 في 13/6/2015, 12:09 am

بارك الله فيك

sdk11
مبرمج مجتهد

عدد المساهمات : 108
تاريخ التسجيل : 19/09/2014

الرجوع الى أعلى الصفحة اذهب الى الأسفل

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى