Курсовая работа: Создание средств наглядности с использованием программной среды Delphi и Microsoft Movie Maker

fiFc:=-90;

Xfc:=X+1*sin((fiFc*180)/PI);

Yfc:=Y-1*cos((fiFc*180)/PI);

Series14.AddArrow(X,Y,Xfc,Yfc);

Series16.AddXY(Xfc+0.5,Yfc,'Fc');

end;

procedure TForm1.N2Click(Sender: TObject);

begin

ShellExecute(Handle,'open','теоретическаясправка.htm',nil,nil,SW_RESTORE);

end;

procedure TForm1.N4Click(Sender: TObject);

begin

Form4.Show;

end;

procedure TForm1.N6Click(Sender: TObject);

begin

Form5.Show;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

with Form6.MediaPlayer1 do

begin

Filename := 'Video.mpg';

Open;

Form6.Show;

Display := Form6.Panel1;

DisplayRect := Form6.Panel1.ClientRect;

end;

end;