bangzhu.pas

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

unit bangzhu;

interface

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

type
  TForm8 = class(TForm)
    Panel1: TPanel;
    Memo1: TMemo;
    PopupMenu1: TPopupMenu;
    procedure FormShow(Sender: TObject);
    procedure Memo1KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form8: TForm8;

implementation

{$R *.dfm}

procedure TForm8.FormShow(Sender: TObject);
begin
form8.Left:=GetSystemMetrics(sm_cxscreen)div 2 - 183;
form8.Top:=GetSystemMetrics(sm_cyscreen)div 2 - 264;
end;

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

end.