[Димона]

Сообщение от stil

Код:

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
  var s: TShape;
begin
if Button=mbLeft then begin
  s:=TShape.Create(form1);
  with s do begin
    Parent:=form1;
    Height:=100;
    Width:=100;
    Shape:=stcircle;
    Top:=Y-trunc(S.Height/2);
    Left:=X-trunc(S.Width/2);
  end;
end;
end;

а тут по другому никак?..