urlentry.pas

来自「一个非常好用的MP3音乐播放控件」· PAS 代码 · 共 37 行

unit URLEntry;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls;

type
  TURLEntryForm = class(TForm)
    WebIcon: TImage;
    URLEdit: TEdit;
    OkButton: TButton;
    CancelButton: TButton;
    procedure OkButtonClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  URLEntryForm: TURLEntryForm;

implementation

uses Player;

{$R *.DFM}

procedure TURLEntryForm.OkButtonClick(Sender: TObject);
begin
  PlayerForm.XaudioPlayer.InputOpen(URLEdit.Text);
end;

end.