Lazarus中TScreen类使用介绍

描述：虚拟屏幕（桌面）可以包含多个物理显示器。
Screen对象是鼠标指针、字体、窗体。对于Delphi兼容的（不可见）DataModules也被列出了。

同时也追踪当前活动窗体窗体、控件和指针。

Screen 对象
Screen 对象是 TScreen 类的一个变量, 它声明在 Forms 单元

1.获取系统支持的字体列表

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

2.获取屏幕逻辑宽度和高度（分辨率）

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

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

3.自建Screen对象

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

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

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

4.程序中的窗体个数和窗体调用

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

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

5.更换全局指针图标

//更换窗体或某个控件的光标可以不通过 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;

6.随机切换鼠标指针

procedure TForm1.FormCreate(Sender: TObject);
begin
Timer1.Enabled:=true;
Timer1.Interval := 250;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Self.Cursor := TCursor(-Random(22));
end;

7.判断当前焦点在哪个控件上

Text := Screen.ActiveControl.ClassName;

8.判断当前焦点在哪个窗体上

Text := Screen.ActiveForm.ClassName;

9.截取屏幕

需要先uses 两个单元：LCLIntf, LCLType

procedure TForm1.Button7Click(Sender: TObject);
var
bit: TBitmap;
DC: HDC;
cvs: TCanvas;
begin
bit := TBitmap.Create;
bit.SetSize(Screen.Width, Screen.Height);

DC := GetDC(0);
cvs := TCanvas.Create;
cvs.Handle := DC;

bit.Canvas.CopyRect(Screen.DesktopRect, cvs, Screen.DesktopRect);
bit.SaveToFile('/Users/tianya/Screen.bmp');

ReleaseDC(0, DC);
cvs.Free;
bit.Free;

end;

巴特西