small.pas

基于delphi媒体播放器的源代码 很全面

unit small;

interface

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

type
  TForm6 = class(TForm)
    Panel1: TPanel;
    Image1: TImage;
    GroupBox1: TGroupBox;
    Edit3: TEdit;
    Edit1: TEdit;
    Edit2: TEdit;
    GroupBox2: TGroupBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    Timer1: TTimer;
    PopupMenu1: TPopupMenu;
    GroupBox3: TGroupBox;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure Timer1Timer(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure Edit3KeyPress(Sender: TObject; var Key: Char);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
  private
  procedure wmgetminmaxinfo(var msg:Twmgetminmaxinfo); message wm_getminmaxinfo;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form6: TForm6;

implementation

uses unit1;

{$R *.dfm}

procedure TForm6.FormCreate(Sender: TObject);
begin
  form1.Hide;
  form6.Top:=0;
  form6.Left:=0;
end;

procedure TForm6.FormShow(Sender: TObject);
begin
  form6.Top:=0;
  form6.Left:=0;
  form1.PopupMenu1.Items.Items[4].Enabled:=false;
  Timer1.Enabled:=true;
end;

procedure TForm6.BitBtn3Click(Sender: TObject);
begin
Timer1.Enabled:=false;
form6.Hide;
form1.Show;
end;

procedure TForm6.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
Timer1.Enabled:=false;
Application.Terminate;
end;

procedure TForm6.Timer1Timer(Sender: TObject);
begin
edit3.Text:=form1.Edit1.Text;
edit2.Text:=form1.Edit2.Text;
if form1.CheckListBox1.Count<>0 then
edit1.Text:=form1.CheckListBox1.Items.Strings[integer(Form1.CheckListBox1.ItemIndex)];
end;

procedure TForm6.BitBtn1Click(Sender: TObject);
begin
form1.BitBtn3.Click;
end;

procedure TForm6.BitBtn2Click(Sender: TObject);
begin
form1.BitBtn2.Click;
end;

procedure TForm6.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
key:=#0;
end;

procedure TForm6.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
key:=#0;
end;

procedure TForm6.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
key:=#0;
end;

procedure TForm6.BitBtn4Click(Sender: TObject);
begin
form1.last.Click;
end;

procedure TForm6.BitBtn5Click(Sender: TObject);
begin
form1.next.Click;
end;

procedure TForm6.WMGetMinMaxInfo( var Msg :TWMGetMinMaxInfo );
begin
with Msg.MinMaxInfo^ do
begin
ptMaxSize.X := 296;
ptMaxSize.Y := 97;
ptMaxPosition.X := 0;
ptMaxPosition.Y := 0;
ptMinTrackSize:=point(296,97);
ptMaxTrackSize:=point(296,97);
end;
Msg.Result := 0; 
inherited; 
end;

end.