10. Создание главного и выплывающего меню. Пример работы с видеофайлами.

Всего существует 2 типа меню – главное меню – то, что располагается непосредственно под заголовком окна программы, и локальное, всплывающее или контекстное меню, привязанное к тому или иному элементу управления. И если главное меню предназначено для управления работой всего приложения, то каждое контекстное меню служит для управления каким-либо конкретным элементом интерфейса.

Для создания главного меню в VCL предусмотрен компонент MainMenu, а для контекстного – PopupMenu. Оба они происходят от класса TMenu, и имеют некоторые общие свойства

Разместите в форме следующие компоненты — MediaPlayer

(страница System), OpenDialog (страница Dialogs) и BitBtn

(страница Additional).

3. Компоненты MediaPlayer и BitBtn расположите внизу формы, в

заголовок кнопки напишите «Открыть». Компонент OpenDialog

можно расположить в произвольном месте формы, так как в

процессе выполнения он будет оставаться невидимым.

4. Компонент OpenDialog связан со стандартным диалоговым

окном для поиска и открытия файла. Для инициализации этого

окна есть специальная функция — OpenDialog.Execute, которая

возвращает значение логического типа, при этом имя файла

записывается в свойство OpenDialog.FileName. Таким образом,

запишите в обработчик нажатия на нашу кнопку следующую

процедуру (процедура MediaPlayer1.Open делает кнопки

Медиаплейера доступными).

BitBtn1, events OnClick

if OpenDialog1.Execute then begin

MediaPlayer1.FileName:=

OpenDialog1.FileName;

MediaPlayer1.Open

end;

7. Одномерные массивы в среде Delphi. Удаление элемента из одномерного массива, вставка элемента в заданную позицию. Использование компонента Stringgrid.

var

Form1: TForm1;

a:array[1..10]of integer;

implementation

{$R *.dfm}

const n=8;

procedure TForm1.Button1Click(Sender: TObject);

var i:byte;

begin

randomize;

for i:=0 to n do begin

a[i]:=random(10)-5;

stringgrid1.Cells[i,0]:=inttostr(a[i]);

Чтобы удалить k -ый элемент массива можно сдвинуть часть массива, начиная с k + 1-га элемента

на одну позицию влево.

n:=n-1;

for i:=k to n do x[i]:=x[i+1]; .

{ вывод на экран}

for i:=1 to n do

stringgrid1.Cells[i,0]:=inttostr(a[i]);

вставка

for i:=N downto K do x[i+1]:=x[i]; x[k]:=b;.

7. Преобразование матрицы в одномерный массив, пересылка одномерного массива в матрицу.

program asd;

const n=5; m=4;

var a:array[1..n,1..m] of real;

x:array[1..(m*n)] of real;

i,j:integer;

BEGIN {пропущено формирование матрицы};

for i:=1 to n do

for j:=1 to m do

x[(i-1)*m+j]:=a[i,j];

writeln('_____вывод одномерного макссива_________');

for i:=1 to n*m do write(x[i]:7:2);

writeln; END.

1.4 Пересылка элементов одномерного массива в матрицу:

program asd;

const n=5; m=4;

var b:array[1..n,1..m] of real;

x:array[1..(m*n)] of real;

k,i,j:integer;

BEGIN

k:=m*n;

{пропущено формирование массива размерности k}

for i:=1 to n do for j:=1 to m do

b[i,j]:=x[(i-1)*m+j];

writeln('*******вывод матрицы*******');

for i:=1 to n do

begin

for j:=1 to m do write(b[i,j]:7:2);

writeln;

end;

END.