Object);: = False;. Text: ='';. Text: ='';. Text: ='';. Enabled: = true;. SetFocus;. Enabled: = false;. Enabled: = false; TForm3.MaskEdit1KeyPress (Sender: TObject; var Key: Char); (key = # 13) and (MaskEdit1.Text = Form2.pass) then.Enabled: = true;. Enabled: = false;. SetFocus;;; TForm3.MaskEdit2KeyPress (Sender: TObject; var Key: Char); key = # 13 then begin.Enabled: = true;. SetFocus;. Enabled: = false;;; TForm3.MaskEdit3KeyPress (Sender: TObject; var Key: Char); (key = # 13) and (MaskEdit2.Text = MaskEdit3.Text) then beginTRegistry.Create do: = HKEY_LOCAL_MACHINE; ('Software', True ); not KeyExists ('MyProject') then CreateKey ('MyProject'); ('MyProject', True); ('Password', MaskEdit3.Text);;: = True;. Hide;. Enabled: = True;; ; TForm3.FormCloseQuery (Sender: TObject; var CanClose: Boolean);: = v;;. Unit4;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, ExtCtrls, StdCtrls; = class (TForm): TImage ;: TLabel;: TLabel;: TTimer; FormCreate (Sender: TObject); Timer1Timer (Sender: TObject); FormCloseQuery (Sender: TObject; var CanClose: Boolean); Button1Click (Sender: TObject);
{Private declarations}: Boolean;
{Public declarations};: TForm4; Unit1_1, Unit2;
{$ R *. dfm}, Picture: TBitMap;// фон і картинка
BackRct: TRect;// положення і розмір області фону,
// яка повинна бути відновлена, y: integer;// поточне положення картинки
W, H: integer;// розміри картінкіTForm4.FormCreate (Sender: TObject);
begin
{Властивості AutoSize обов'язково треба
привласнити значення False. Це можна
зробити під час створення форми.
}: = False;. AutoSize: = False;
// створити два об'єкти - бітових образу: = TBitmap.Create;// фон: = TBitmap.Create;// картинка
// завантажити та вивести фон
Back.LoadFromFile ('11. bmp ');. Width: = Back.Width;. Height: = Back.Height;. Canvas.Draw (0,0, Back);
// завантажити картинку, яка рухатиметься
Picture.LoadFromFile ('22. bmp ');
W: = Picture.Width;: = Picture.Height;
// визначимо "прозорий" цвет.Transparent: = True;
// прозорий колір картинки визначає
// лівий верхній піксель картінкі.TransParentColor: = Picture.Canvas.Pixels [1,1];
// початкове положення картинки: =-W;: = 320;
// визначимо зберігається область фону: = Bounds (x, y, W, H);
end; TForm4.Timer1Timer (Sender: TObject); Form2.VHODIM = true then begin
// відновленням фону видалимо рі...
