Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.04.11;
Скачать: CL | DM;

Вниз

Как реализовать?   Найти похожие ветки 

 
Driver   (2004-03-22 07:37) [0]

Данный скрипт
Rad = 100; // for example
...
Center1: TPoint; // Center of moving picture
Center2: TPoint; // Center of static picture
...
for i:=0 to 360 do
begin
Alfa := Pi/180; // 2*Pi/360
Center1 := Point(Rad*Cos(Alfa) + Center2.X, Rad*Sin(Alfa) + Center2.Y);
// Hear some output
// hear some pause
end;

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


 
Sphinx ©   (2004-03-22 07:50) [1]

> Скажите что конкретно нужно разместить на форме
Картинки, таймер, кнопку->Старт/Стоп вполне хватит

> И какие действия использовать???
События таймера.



Страницы: 1 вся ветка

Текущий архив: 2004.04.11;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.065 c
3-1079325995
Janbolat
2004-03-15 07:46
2004.04.11
данные вычисляемых полей не сохраняются


1-1082361509
xman
2004-04-19 11:58
2004.04.11
Конвертор


3-1079519664
sashag
2004-03-17 13:34
2004.04.11
IntToStr ???


4-1079608687
boa
2004-03-18 14:18
2004.04.11
Как программно узнать, что сервер НТ является терминал-сервером?


14-1082528376
VID
2004-04-21 10:19
2004.04.11
Как создать загрузочный диск, который будет видеть NTFS ?