Зертханалық жұмыс №1 «Delphi интерфейсінің элементтері»

begin StartX := X; StartY := Y; end

жүктеу 2,2 Mb.

бет	66/118
Дата	04.01.2022
өлшемі	2,2 Mb.
	#36255

1 ... 62 63 64 65 66 67 68 69 ... 118

Зертханалы ж мыс №1 «Delphi интерфейсіні элементтері»

begin

StartX := X;

StartY := Y;

end;

{ Бұл кодты пішіннің OnMouseUp оқиғасының өңдеуіші ретінде қолданыңыздар: }

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;

{ Бұл кодты пішіннің OnMouseMove оқиғасының өңдеуіші ретінде қолданыңыздар: }

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;

жүктеу 2,2 Mb.

Достарыңызбен бөлісу:

1 ... 62 63 64 65 66 67 68 69 ... 118