我在看个播放器的例子
unit Unit1;interfaceuses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
MPlayer, ExtCtrls, ComCtrls, Menus;type
TForm1 = class(TForm)
MainMenu1: TMainMenu;
TrackBar1: TTrackBar;
Timer1: TTimer;
Panel1: TPanel;
MediaPlayer1: TMediaPlayer;
open1: TMenuItem;
close1: TMenuItem;
about1: TMenuItem;
exit1: TMenuItem;
OpenDialog1: TOpenDialog;
procedure about1Click(Sender: TObject);
procedure open1Click(Sender: TObject);
procedure exit1Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure close1Click(Sender: TObject);
procedure TrackBar1Change(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
opened:boolean;
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementationuses Unit2;{$R *.DFM}procedure TForm1.about1Click(Sender: TObject);
begin
aboutbox.show;
end;procedure TForm1.open1Click(Sender: TObject);
begin
if opendialog1.Execute then
begin
mediaplayer1.filename:=opendialog1.FileName;
mediaplayer1.open;
mediaplayer1.display:=panel1;
opened:=true;
trackbar1.max:=mediaplayer1.length;
end;end;procedure TForm1.exit1Click(Sender: TObject);
begin
mediaplayer1.Close;
close;end;procedure TForm1.Timer1Timer(Sender: TObject);
begin
if opened then
trackbar1.position:=mediaplayer1.position;end;procedure TForm1.close1Click(Sender: TObject);
begin
mediaplayer1.Close;
opened:=false;end;procedure TForm1.TrackBar1Change(Sender: TObject);
begin
if opened then
mediaplayer1.Position:=trackbar1.Position;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
opened:=false;end;end.用DELPHI7.0编译出错,
提示为[Fatal Error] Unit1.pas(40): File not found: 'unit2.dcu'请问如何解决?
unit Unit1;interfaceuses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
MPlayer, ExtCtrls, ComCtrls, Menus;type
TForm1 = class(TForm)
MainMenu1: TMainMenu;
TrackBar1: TTrackBar;
Timer1: TTimer;
Panel1: TPanel;
MediaPlayer1: TMediaPlayer;
open1: TMenuItem;
close1: TMenuItem;
about1: TMenuItem;
exit1: TMenuItem;
OpenDialog1: TOpenDialog;
procedure about1Click(Sender: TObject);
procedure open1Click(Sender: TObject);
procedure exit1Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure close1Click(Sender: TObject);
procedure TrackBar1Change(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
opened:boolean;
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementationuses Unit2;{$R *.DFM}procedure TForm1.about1Click(Sender: TObject);
begin
aboutbox.show;
end;procedure TForm1.open1Click(Sender: TObject);
begin
if opendialog1.Execute then
begin
mediaplayer1.filename:=opendialog1.FileName;
mediaplayer1.open;
mediaplayer1.display:=panel1;
opened:=true;
trackbar1.max:=mediaplayer1.length;
end;end;procedure TForm1.exit1Click(Sender: TObject);
begin
mediaplayer1.Close;
close;end;procedure TForm1.Timer1Timer(Sender: TObject);
begin
if opened then
trackbar1.position:=mediaplayer1.position;end;procedure TForm1.close1Click(Sender: TObject);
begin
mediaplayer1.Close;
opened:=false;end;procedure TForm1.TrackBar1Change(Sender: TObject);
begin
if opened then
mediaplayer1.Position:=trackbar1.Position;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
opened:=false;end;end.用DELPHI7.0编译出错,
提示为[Fatal Error] Unit1.pas(40): File not found: 'unit2.dcu'请问如何解决?
至于何用,我估计是用于显示一个关于窗体,即调用aboutbox.show;
如果没有找到unit2,你就把uses Unit2和aboutbox.show两句删掉,应该可以运行吧
Forms,
Unit2 in 'Unit2.pas' {Form1};{$R *.res}begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.