Рисование на форме. Движение точки.

[JDRaveN]

Щелчком мыши на пространстве формы создается точка. Радиогруппа задает направ-ление перемещения точки (вверх, вниз, влево, вправо), а фиксированный список - ско-рость перемещения (10, 20, 30 пикселя/с). В отдельном окошке выводится время, за которое точка достигает края формы. При этом точка исчезает Запуск движения - из-менение размера формы.

[Stilet]

И в чем помочь? Что ты уже сделал?

[JDRaveN]

Да вобщем ничего, радио набор, ниспадающий список с фиксированным набором скорости перемещения, не знаю как поставить точку на форме, как заставить её двигаться и самое главное, как реализовать счётчик времени движения точки до края формы.

[Stilet]

Ну насчет установки точки, я бы выбрал какой нить контрол. Например Shape:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var s:TShape;
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);

begin
 s:=TShape.Create(Form1);
 s.Left:=x; s.Top:=y;
 s.Shape:=stCircle;
 s.Width:=10;
 s.Height:=10;
 s.Parent:=Form1;
 s.Show;
end;

end.

Далее его и двигать проще. Меняй в таймере Left и top и он поплывет.

[JDRaveN]

Stilet:
Это работает а как теперь привязать, радионабор с направлением движения и скорость к этой точке? Блин помоги пожалуйста, сам не справлюсь, а надо очень сделать.

[Kotofff]

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

Stilet:
Это работает а как теперь привязать, радионабор с направлением движения и скорость к этой точке? Блин помоги пожалуйста, сам не справлюсь, а надо очень сделать.

Подсказка первая:
как сказал Stilet в таймере изменяй координаты Left, Top, прибавляя к ним (одновременно или по очереди) положительное число для перемещения в одну сторону и отрицательное - в другую, не забывая про контроль краев области перемещения, скорость изменяй - варьируя значениями Interval в таймере...

[JDRaveN]

В таймере получилось, но надо сделать так:
В радио-наборе я выбираю направление и тогда точка начинает двигаться в выбранном направлении и как это связать таймер и радио-набор.

[Stilet]

Ну например так:

Case RadioGroup.itemIndex of
 0:q:=1;
 1:q:=-1;
 2:w:=1;
 3:w:=-1;
end;
...
 Фигурка.Left:=Фигурка.Left+q;
 Фигурка.top:=Фигурка.top+w;

Смысл в том чтобы просто менять знаки направлений для координат фигуры..

[JDRaveN]

В общем у меня получилось вот, что:

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
s:=TShape.Create(Form1);
s.Left:=x; s.Top:=y;
s.Shape:=stCircle;
s.Width:=2;
s.Height:=2;
s.Parent:=Form1;
s.Show;

end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if RadioButton1.Checked=True then s.Top:=s.Top-1;
if RadioButton2.Checked=True then s.Top:=s.Top+1;
if RadioButton3.Checked=True then s.Left:=s.Left-1;
if RadioButton4.Checked=True then s.Left:=s.Left+1;
end;

end.

теперь вместо -/+ 1 надо поставить значение из ComboBox - это будет шаг перемещения.

[JDRaveN]

Это тоже получилось, теперь надо, вставить счётчик времени движения точки до края формы и остановку точки у края формы.

Народ помогите кто-нить.... Я знаю Вы можете