selecturl.pas

来自「一个Delphi下的DirectShow开发工具」· PAS 代码 · 共 28 行

unit SelectURL;

interface

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

type
  TFormSelectURL = class(TForm)
    btOK: TButton;
    btCancel: TButton;
    URL: TEdit;
  private
    { D閏larations priv閑s }
  public
    { D閏larations publiques }
  end;

var
  FormSelectURL: TFormSelectURL;

implementation

{$R *.dfm}

end.