如何全屏播放影片???????? 请问如何全屏播放影片?用MediaPlayer控件播放的影片怎样可以实现全拼化的播放? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 MediaPlayer1.displayrect:=rect(0,0,panel1.width,panel1.height); unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons, MPlayer, ExtCtrls;type TForm1 = class(TForm) Panel1: TPanel; MediaPlayer1: TMediaPlayer; OpenDialog1: TOpenDialog; BT_Open: TBitBtn; BT_Z: TBitBtn; BT_F: TBitBtn; BT_E: TBitBtn; procedure BT_OpenClick(Sender: TObject); procedure FormCreate(Sender: TObject); procedure BT_ZClick(Sender: TObject); procedure BT_FClick(Sender: TObject); procedure Panel1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure BT_EClick(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1; r:TRect;implementation{$R *.dfm}procedure TForm1.BT_OpenClick(Sender: TObject);begin if OpenDialog1.Execute then begin MediaPlayer1.FileName:=OpenDialog1.FileName; MediaPlayer1.Open; MediaPlayer1.Frames:=1; MediaPlayer1.Notify:=True; MediaPlayer1.Step; MediaPlayer1.Show; MediaPlayer1.Frames:=25; end;end;procedure TForm1.FormCreate(Sender: TObject);begin MediaPlayer1.Width:=Form1.Width; Panel1.Height:=Form1.Width*4 div 5; r:=Rect(Left,Top,Width,Height);end;procedure TForm1.BT_ZClick(Sender: TObject);begin if MediaPlayer1.Mode=mpPlaying then begin MediaPlayer1.DisplayRect:=Rect(0,0,Panel1.Width,Panel1.Height); end;end;procedure TForm1.BT_FClick(Sender: TObject);begin if MediaPlayer1.Mode=mpPlaying then begin Form1.BorderStyle:=bsNone; Form1.WindowState:=wsMaximized; Form1.MediaPlayer1.Hide; Form1.BT_Open.Hide; Form1.BT_Z.Hide; Form1.BT_F.Hide; Form1.BT_E.Hide; Form1.Panel1.Align:=alClient; Form1.Panel1.Realign; Form1.Panel1.Refresh; MediaPlayer1.Display:=Panel1; MediaPlayer1.DisplayRect:=Rect(0,0,Panel1.Width,Panel1.Height); end;end;procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);begin if MediaPlayer1.Mode=mpPlaying then begin Form1.BorderStyle:=bsSizeable; Form1.Left:=r.Left; Form1.Top:=r.Top; Form1.Width:=r.Right; Form1.Height:=r.Bottom; Form1.Panel1.Align:=alTop; Form1.Panel1.Height:=Form1.Height*4 div 5; Form1.MediaPlayer1.Show; Form1.MediaPlayer1.Width:=Form1.Panel1.Width; Form1.BT_Open.Show; Form1.BT_Z.Show; Form1.BT_F.Show; Form1.BT_E.Show; MediaPlayer1.Display:=Panel1; Panel1.Realign; MediaPlayer1.DoubleBuffered:=True; MediaPlayer1.DisplayRect:=Rect(0,0,Panel1.Width,Panel1.Height); end;end;procedure TForm1.BT_EClick(Sender: TObject);begin MediaPlayer1.Free; Close;end;end. 求助!!!delphi 的截断字符串...... 为何SetFocus不起作用? 这个问题你应该遇到过,你是怎么解决的? 配置了ODBC 为何无法连上SQLserver数据库? 记得有套生成Win32服务的控件,忘了叫什么了。 Corba远程联接紧急求助!!! 哪位有适合Delphi用的两态图标? 如何分割某一格式的文本? 关于数据库别名 如何在Delphi中改变Form边框颜色? 学生问题~~关于日期的sql的应用~~ 如何在DBGrid1中第一列用代码添加自定义下拉列表,比如“AAA”、“BBB”、“CCC”?
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, MPlayer, ExtCtrls;type
TForm1 = class(TForm)
Panel1: TPanel;
MediaPlayer1: TMediaPlayer;
OpenDialog1: TOpenDialog;
BT_Open: TBitBtn;
BT_Z: TBitBtn;
BT_F: TBitBtn;
BT_E: TBitBtn;
procedure BT_OpenClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure BT_ZClick(Sender: TObject);
procedure BT_FClick(Sender: TObject);
procedure Panel1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure BT_EClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;
r:TRect;
implementation{$R *.dfm}procedure TForm1.BT_OpenClick(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
MediaPlayer1.FileName:=OpenDialog1.FileName;
MediaPlayer1.Open;
MediaPlayer1.Frames:=1;
MediaPlayer1.Notify:=True;
MediaPlayer1.Step;
MediaPlayer1.Show;
MediaPlayer1.Frames:=25;
end;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
MediaPlayer1.Width:=Form1.Width;
Panel1.Height:=Form1.Width*4 div 5;
r:=Rect(Left,Top,Width,Height);
end;procedure TForm1.BT_ZClick(Sender: TObject);
begin
if MediaPlayer1.Mode=mpPlaying then
begin
MediaPlayer1.DisplayRect:=Rect(0,0,Panel1.Width,Panel1.Height);
end;
end;procedure TForm1.BT_FClick(Sender: TObject);
begin
if MediaPlayer1.Mode=mpPlaying then
begin
Form1.BorderStyle:=bsNone;
Form1.WindowState:=wsMaximized; Form1.MediaPlayer1.Hide;
Form1.BT_Open.Hide;
Form1.BT_Z.Hide;
Form1.BT_F.Hide;
Form1.BT_E.Hide; Form1.Panel1.Align:=alClient;
Form1.Panel1.Realign;
Form1.Panel1.Refresh; MediaPlayer1.Display:=Panel1;
MediaPlayer1.DisplayRect:=Rect(0,0,Panel1.Width,Panel1.Height);
end;
end;procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if MediaPlayer1.Mode=mpPlaying then
begin
Form1.BorderStyle:=bsSizeable;
Form1.Left:=r.Left;
Form1.Top:=r.Top;
Form1.Width:=r.Right;
Form1.Height:=r.Bottom;
Form1.Panel1.Align:=alTop;
Form1.Panel1.Height:=Form1.Height*4 div 5; Form1.MediaPlayer1.Show;
Form1.MediaPlayer1.Width:=Form1.Panel1.Width;
Form1.BT_Open.Show;
Form1.BT_Z.Show;
Form1.BT_F.Show;
Form1.BT_E.Show; MediaPlayer1.Display:=Panel1;
Panel1.Realign;
MediaPlayer1.DoubleBuffered:=True;
MediaPlayer1.DisplayRect:=Rect(0,0,Panel1.Width,Panel1.Height);
end;
end;procedure TForm1.BT_EClick(Sender: TObject);
begin
MediaPlayer1.Free;
Close;
end;end.