fulscreen.~pas

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

unit FulScreen;

interface

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

type
  TForm5 = class(TForm)
    Panel1: TPanel;
    procedure Panel1DblClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormHide(Sender: TObject);
  private

  public

  end;

var
  Form5: TForm5;
  ShowFor1:boolean;
implementation

uses scren, Main;

{$R *.dfm}

procedure TForm5.Panel1DblClick(Sender: TObject);
begin
     Form2.Panel1DblClick(Sender);
end;

procedure TForm5.FormShow(Sender: TObject);
begin //此事件先于FormActivate触发
   Form2.ResizeDefine(Form5.WindowState,FOrm5.Panel1,Form5);
   ShowFor1:=False;
   Form1.ToMainForm.Enabled:=true;
   Form5.SetFocus;
end;

procedure TForm5.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin //若定义了消息事件 Wm_keydown ,则会先触发消息事件
   Form2.Formkeydown(Sender,Key,Shift);
end;
procedure TForm5.FormHide(Sender: TObject);
begin
   Form1.ToMainForm.Enabled:=false;//"切换到主窗体"菜单项不可用
end;

end.