unit1.pas

来自「Delphi7应用编程150例附书源码.rar」· PAS 代码 · 共 44 行

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    ListBox1: TListBox;
    procedure FormCreate(Sender: TObject);
    procedure ListBox1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
    ListBox1.Items:=Screen.Fonts;
    self.MainMenu1.AutoHotkeys:=maManual;
    self.MainMenu1.AutoLineReduction:=maManual;
    Screen.MenuFont.Size:=12;
end;

procedure TForm1.ListBox1Click(Sender: TObject);
begin
    Screen.MenuFont.Name:=ListBox1.Items[ListBox1.ItemIndex];
    FlashWindow(self.Handle,FALSE);
end;

end.