02.10.2008, 16:00
|
|
Участник форума
Регистрация: 27.03.2008
Сообщений: 288
С нами:
9538880
Репутация:
83
|
|
в общем вот исходник
PHP код:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls; type Tsharik = class(TForm) Shape1: TShape; Timer1: TTimer; procedure FormCreate(Sender: TObject); procedure Timer1Timer(Sender: TObject); private { Private declarations } procedure shar(); public { Public declarations } end; var sharik: Tsharik; PosX, Posy, VelX, Vely: single; implementation {$R *.dfm} procedure Tsharik.FormCreate(Sender: TObject); begin Posx:=3; PosY:=5; VelX:=2; VelY:=2; end; procedure Tsharik.shar; begin PosX:= PosX+VelX; PosY:= PosY+VelY; // Что бы шарик не вылетал за границы поля по ширине // Если X координата шарика больше ширины формы - ширины самого //шарика то if PosX > ClientWidth - Shape1.Width then begin //X координата шарика присвоит значение ширина формы - ширина //шарика PosX:= ClientWidth - Shape1.Width; // НАЗАД!!! VelX:= - VelX; end else if PosX < 0 then begin POsX:= 0; VelX:= - VelX; end; // работаем с Y координатой if PosY > ClientHeight - Shape1.Width then begin POsY:= ClientHeight - Shape1.Width; VelY:= - VelY; end else if PosY < 0 then begin POsY:= 0; VelY:= - VelY; end; // Перемещаем шарик в пространстве Shape1.Left:= Round(PosX); Shape1.Top:= Round(PosY); end; procedure Tsharik.Timer1Timer(Sender: TObject); begin shar; end; end.
помогите с GetDC сделать, а то искал исоднеки у меня не пашит(( |
|
|