新手

新手求救
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, MPlayer, Buttons,inifiles, ComCtrls;

type
  TMediaState = (msOpen,msPlay,msPause,msContinue,msStop,msNone) ;
  TForm1 = class(TForm)
  MediaPlayer1: TMediaPlayer;
  OpenDialog1: TOpenDialog;
  Panel1: TPanel;
  ListBox1: TListBox;
  Label1: TLabel;
  Label2: TLabel;
  Open: TSpeedButton;
  Play: TSpeedButton;
  Pause: TSpeedButton;
  Stop: TSpeedButton;
  Label3: TLabel;
  Timer1: TTimer;
  Progress: TScrollBar;
  procedure OpenClick(Sender: TObject);
  procedure PlayClick(Sender: TObject);
  procedure PauseClick(Sender: TObject);
  procedure StopClick(Sender: TObject);
  procedure MediaPlayer1Notify(Sender: TObject);
  procedure ListBox1DblClick(Sender: TObject);
  procedure FormClose(Sender: TObject; var Action: TCloseAction);
  procedure FormCreate(Sender: TObject);
  procedure Timer1Timer(Sender: TObject);
  procedure ProgressScroll(Sender: TObject; ScrollCode: TScrollCode;
  var ScrollPos: Integer);
  procedure MediaPlayer1Click(Sender: TObject; Button: TMPBtnType;
  var DoDefault: Boolean);
  private
  FMediaState: TMediaState;
  FDragProgress: Boolean;
  procedure SetMediaSate(const Value: TMediaState);
  { Private declarations }
  Published
  Property MediaState: TMediaState Read FMediaState Write SetMediaSate;
  public
  Procedure CreateParams(var Params: TCreateParams);override;
  { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.CreateParams(var Params: TCreateParams);
begin
  inherited;
  Params.Style := Params.Style- ws_ex_toolwindow;
end;

procedure TForm1.SetMediaSate(const Value: TMediaState);//就这里 setmediasate 是在组件中吗。请问是在哪？
begin
省略。。。。。。

------解决方案--------------------
Property MediaState: TMediaState Read FMediaState Write SetMediaSate;

procedure SetMediaSate(const Value: TMediaState);


------解决方案--------------------
private
FMediaState: TMediaState;
FDragProgress: Boolean;
procedure SetMediaSate(const Value: TMediaState); //这个是声明
...
procedure TForm1.SetMediaSate(const Value: TMediaState);//这个是定义

SetMediaSate被定义为TForm1的一个私有方法,并通过属性
MediaState来调用