DELPHI / Koordinatlar İle Çalışmak

Cool

Üye
Üye
Mesaj
136
Çözümler
1
Beğeni
73
Puan
686
procedure TForm1.FormMouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState;
X, Y: Integer);
begin
Canvas.Ellipse(x-20,y-20,x+20,y+20);
end;

procedure TForm1.FormMouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState;
X, Y: Integer);
begin
case Button of
mbLeft:
begin
Canvas.Brush.Color := clRed;
Canvas.Ellipse(x-20,y-20,x+20,y+20);
end;
mbRight:
begin
Canvas.Brush.Color := clBlue;
Canvas.Rectangle(x-20,y-20,x+20,y+20);
end;
end;
end;

procedure TForm1.FormMouseMove(Sender: TObject;
Shift: TShiftState; X,Y: Integer);
begin
if ssShift in Shift then
Canvas.Ellipse(x-20,y-20,x+20,y+20)
else if ssCtrl in Shift then
Canvas.Rectangle(x-20,y-20,x+20,y+20);
end;
 
Geri
Üst