Курсовая работа: Розробка програми для сумісної роботи з додатками PowerPoint з використанням технології OLE

K:=K+1;

Label_NUM. Caption:=InttoStr(K);

Form_refresh1;

end;

procedure TForm1. Button_PREVClick (Sender: TObject);

begin

// Переход к предыдущему слайду

PowerPointApp. ActivePresentation. SlideShowWindow. View. Previous;

K:=K-1;

Label_NUM. Caption:=InttoStr(K);

Form_refresh1;

end;

procedure TForm1. Button_FIRSTClick (Sender: TObject);

begin

// Переход к первому слайду

PowerPointApp. ActivePresentation. SlideShowWindow. View. First;

K:=1;

Label_NUM. Caption:=InttoStr(K);

Form_refresh1;

end;

procedure TForm1. Button_LASTClick (Sender: TObject);

begin

// Переход к последнему слайду

PowerPointApp. ActivePresentation. SlideShowWindow. View. Last;

K:=ALL;

Label_NUM. Caption:=InttoStr(K);

Form_refresh1;

end;

procedure TForm1. Button_Way_to_FileClick (Sender: TObject);