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

**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

sdk11 13/6/2015, 12:09 am

بارك الله فيك

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

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

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