admin管理员组

文章数量:1570739

2024年6月4日发(作者：)

1、、插入6个控件，一个pannel，一个mediaplayer控件，一个进度条控件TrackBar1，

一个时间控件Timer1，一个标签控件Label1（实时显示进度），一个按键Button1（我这

里用简单的用一个按键控制播放）。

2、代码：

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, ComCtrls, ExtCtrls, MPlayer;

type

TForm1 = class(TForm)

MediaPlayer1: TMediaPlayer;

Timer1: TTimer;

TrackBar1: TTrackBar;

Label1: TLabel;

Button1: TButton;

Panel1: TPanel;

procedure Button1Click(Sender: TObject);

procedure Timer1Timer(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

Videosize:integer;

minutesMax,SecondMax:integer;

implementation

{$R *.dfm}

procedure 1Click(Sender: TObject);

var

Videosize:Integer;

str:string;

begin

str:=''; //视屏放在当前程序目录下

me:=str;

y:=1;

;

;

Videosize:= div 1000;

minutesMax:=Trunc(Videosize/60);

SecondMax:= Videosize mod 60;

:= Videosize;

n:=IntToStr(minutesMax)+':'+inttostr(SecondMax);

d:=True;

end;

procedure 1Timer(Sender: TObject);

var

minutes,Second:Integer ;

VideosizeSta:Integer;

begin

on:=on div 1000;

VideosizeSta:=on div 1000;

minutes:=Trunc(VideosizeSta/60);

Second:= VideosizeSta mod 60;

n:=IntToStr(minutes)+':'+inttostr(Second)+'/'+

IntToStr(minutesMax)+':'+inttostr(SecondMax);

end;

end.

编译、执行即可。

本文标签： 控件视屏播放编译

版权声明：本文标题：win7delphi7视屏播放器 内容由热心网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：https://www.elefans.com/dianzi/1717464430a574936.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。