Движение Круга По Контуру Окружности (на Delphi)

Тема в разделе "Pascal and Delphi", создана пользователем Викулька, 20 май 2014.

  1. Викулька

    Викулька New Member

    Регистрация:
    20 май 2014
    Сообщения:
    2
    Симпатии:
    0
    На пространстве формы изображена окружность диаметром 350 пикселей. Внутри ее, касаясь контура, по часовой стрелки движется окружность диаметром 40 пикселей со скоростью 200/сек. Окружности разного цвета и толщины. Запуск движения – кнопка «Пуск», остановка – команда главного меню, что приводит к установке малой окружности в самое верхнее положение.


    Помогите пожалуйста,мне только нужен код для procedure TForm1.Timer1Timer,не могу сделать чтобы круг двигался по контуру окружности ;)

    unit Unit1;

    interface

    uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, Menus, StdCtrls, ExtCtrls;

    type
    TForm1 = class(TForm)
    Shape1: TShape;
    Shape2: TShape;
    Timer1: TTimer;
    Button1: TButton;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    procedure N1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    private
    { Private declarations }
    public
    { Public declarations }
    end;

    var
    Form1: TForm1;

    implementation

    {$R *.dfm}

    procedure TForm1.N1Click(Sender: TObject);
    begin
    Shape2.Left:=192;
    Shape2.Top:=24;
    Timer1.Enabled:=False;
    end;

    procedure TForm1.Button1Click(Sender: TObject);
    begin
    Timer1.Enabled:=True;
    end;

    procedure TForm1.N2Click(Sender: TObject);
    begin
    Close;
    end;

    procedure TForm1.Timer1Timer(Sender: TObject);
    begin

    end;


    end.
     
Загрузка...

Поделиться этой страницей