Delphi的TScreen类

TScreen 类 - 获取字体列表

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    procedure FormCreate(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  Memo1.ScrollBars := ssBoth;
  Memo1.Align := alLeft;
  Memo1.Clear;

  {通过 Screen 对象, 只此一句话即可获取字体列表}
  Memo1.Lines := Screen.Fonts;
end;

end.

  

TScreen 类 - 屏幕的逻辑宽度与高度

var
  w,h: Integer;
begin
  w := Screen.Width;
  h := Screen.Height;

  Text := Format('当前屏幕的分辨率是: %d*%d', [w,h]);
end;

TScreen 类 - 关于 Screen 对象

Screen 对象是 TScreen 类的一个变量, 它声明在 Forms 单元的第 1323 行(Delphi 2007);
并且 TScreen 类也来自 Forms 单元.
也就是说, 只要 uses 了 Forms 单元, Screen 对象就可以使用了.

我们自己建立一个 TScreen 类的对象可以吗? 当然可以!

---

var
  MyScreen: TScreen;
begin
  MyScreen := TScreen.Create(nil); {建立}

  ShowMessage(IntToStr(MyScreen.Width)); {显示: 1024; 我的屏幕分辨率是 1024*768}

  MyScreen.Free;                   {释放}
  MyScreen := nil;                 {连根拔掉}
end;

TScreen 类 - 程序中窗体的个数

//一个包含两个窗体的例子, 这是工程中的内容:
program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2};

{$R *.res}

begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);
  Application.Run;
end.

   

//
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

uses Unit2;

procedure TForm1.Button1Click(Sender: TObject);
var
  num: Integer;
begin
  num := Screen.FormCount;    {当前程序中窗体的个数}
  ShowMessage(IntToStr(num)); {2}

  Screen.Forms[1].ShowModal;  {显示第二个窗体}
  {上面这句相当于}
  //Form2.ShowModal;
end;

end.

TScreen 类 - 通过 Screen 更换光标

//更换窗体或某个控件的光标可以不通过 Screen 对象, 譬如:
begin
  Self.Cursor := crAppStart;
  Panel1.Cursor := crHandPoint;

{光标可选值:
  crDefault     = TCursor(0);
  crNone        = TCursor(-1);
  crArrow       = TCursor(-2);
  crCross       = TCursor(-3);
  crIBeam       = TCursor(-4);
  crSize        = TCursor(-22);
  crSizeNESW    = TCursor(-6);
  crSizeNS      = TCursor(-7);
  crSizeNWSE    = TCursor(-8);
  crSizeWE      = TCursor(-9);
  crUpArrow     = TCursor(-10);
  crHourGlass   = TCursor(-11);
  crDrag        = TCursor(-12);
  crNoDrop      = TCursor(-13);
  crHSplit      = TCursor(-14);
  crVSplit      = TCursor(-15);
  crMultiDrag   = TCursor(-16);
  crSQLWait     = TCursor(-17);
  crNo          = TCursor(-18);
  crAppStart    = TCursor(-19);
  crHelp        = TCursor(-20);
  crHandPoint   = TCursor(-21);
  crSizeAll     = TCursor(-22);
}
//其中 crDefault 是默认光标
end;

   

//使用 Screen 更换光标, 是给本程序的全局更换光标, 譬如:
begin
  Screen.Cursor := crSize;
end;

   

//如果让控件有不同的光标, Screen.Cursor 必须是默认值, 也就是:
Screen.Cursor := crDefault;

TScreen 类 - 判断当前焦点在哪个控件/窗口上

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Text := Screen.ActiveControl.ClassName;
end;

{多放几个控件, 按 Tab 测试; 但并不是所有控件都有焦点}

//标题显示当前窗体的类名
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Text := Screen.ActiveForm.ClassName;
end;

TScreen 类 - 获取当前输入法与输入法列表

//获取输入法列表
begin
  Memo1.Lines := Screen.Imes;
end;

   

//获取当前输入法
var
  kl: HKL;
  i: Integer;
begin
  kl := GetKeyboardLayout(0);
  for i := 0 to Screen.Imes.Count - 1 do
    if HKL(Screen.Imes.Objects[i]) = kl then
      ShowMessage(Screen.Imes.Strings[i]); {显示当前输入法}
end;