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;


 
   

你可能感兴趣的:(screen)