Implementation. procedure TForm1.Button1Click(Sender: TObject);

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

Begin

if OpenDialog1.Execute then

Begin

MediaPlayer1.FileName := OpenDialog1.FileName;

MediaPlayer1.Open;

end;

end;

end.

Execute

True

Рис. 47

Filter

Листинг 61

procedure TForm1.Button1Click(Sender: TObject);

Begin

MediaPlayer1.FileName := 'c:\Мои документы\speeds.avi';

MediaPlayer1.Open;

end;

MediaPlayer1.Display := Panel1;

MediaPlayer1.Play;

MediaPlayer1.Stop;

ImageEditor (Tools)

Рис. 48

Рис. 49

Листинг 62

Type

TForm1 = class(TForm)

Panel1:TPanel; //Окно

Button1: TButton; //Запуск

Button2: TButton; //Остановка

Timer1:TTimer;

procedure Timer1Timer(Sender: TObject);

procedure TForm1.Button1Click(Sender: TObject);

procedure TForm2.Button1Click(Sender: TObject);

procedure FormCreated(Sender: TObject);

end;

Var

Form1:TForm1;

I:byte;

procedure Form1.FormCreated(Sender: TObject);

Begin

Timer1.Enabled := false;

I := 1;

end;

procedure TForm1.Button1Click(Sender: TObject);

Begin

Timer1.Enabled := true;

end;

procedure TForm1.Button2Click(Sender: TObject);

Begin

Timer1.Enabled := false;

end;

procedure Form1.Timer1Timer(Sender:TObject);

Begin

Image1.Left := Image1.Left - 60;

i := i + 1;

ifi = 15 then

Begin

i := 1;

Image1.Left := 1;

End

end;

end.

crDefault õ (0)

Cursor

Screen.Cursor := <номер>;

-1 -

-4 – I

-11 - 6

-22 - и т.д.

Image Editor

Рис. 50

HotSpot

Рис. 51

Рис. 52

{$R <имя файла>}

Screen.Cursors[1] := LoadCursor(HInstance, '<имя курсора>');

СУБД Microsoft Access

СУБД Paradox

Рис. 53

., ! ' [ ]

A (Alpha)

N (Number) ± 10³⁰⁷

$

S (Short) ± 32767

I (Long Integer) ± 2147483647

D (Date) 01/01/999 до н.э. ¸ 31/12/9999

T (Time)

@ (TimeStamp)

M (Memo)

L (Logical)

+ (Autoincrement)

Рис. 54

Рис. 55

BDE, dbExpress, InterBaseExpress, ADO

Borland Database Engine

Microsoft ActiveX Data Objects