|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Нужно помощь в создание анимации в Delphi
Надо создать анимацию в программе, а как до меня не доходит, помогите плиз:
Вобще надо сделать так что бы: form1.canvas.LineTo(100,100); - ичезла (1) form1.canvas.LineTo(100,300); - появилась (2) Повторилось все заного! Плиз кому нетрудно помогите! Код:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls; type TForm1 = class(TForm) Timer1: TTimer; procedure Timer1Timer(Sender: TObject); procedure FormActivate(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; y, x,dx: integer; implementation {$R *.dfm} procedure Ris; begin form1.Canvas.Pen.Color:=clBlack; form1.Canvas.MoveTo(100,50); form1.canvas.LineTo(100,100); end; procedure TForm1.Timer1Timer(Sender: TObject); begin Ris; end; procedure TForm1.FormActivate(Sender: TObject); begin x:=0; y:=10; dx:=5; timer1.Interval:=50; form1.canvas.brush.color:=form1.color; end; end. Последний раз редактировалось JIexa, 02.09.2007 в 11:37. |