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

من طرف **salme** السبت يناير 21, 2017 8:49 pm

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

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

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

الكود:: var StartX, StartY: Integer; procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin StartX := X; StartY := Y; end;

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

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

المصدر دلفي تعليم
delph.forumalgerie.net