poperty1.~pas

来自「一个delphi制作的mp3播放器！」· ~PAS 代码 · 共 49 行

unit poperty1;

interface

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

type
  TForm6 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    FileSizeEd: TEdit;
    ArtistLb: TLabel;
    ArtistEd: TEdit;
    FileNameEd: TEdit;
    FileNameLb: TLabel;
    GenreLb: TLabel;
    GenreEd: TEdit;
    FilePathEd: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure FormDblClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form6: TForm6;

implementation

uses Playlist;

{$R *.dfm}   // Title,Artist,Year,Genre,Comment

procedure TForm6.FormCreate(Sender: TObject);
begin
     Form6.Left:=Form3.LbName.Left+Form3.LbName.width;//startx;
end;

procedure TForm6.FormDblClick(Sender: TObject);
begin
    Form6.Visible:=not Form6.Visible;
end;

end.