随笔 - 2146  文章 - 97 评论 - 11767 trackbacks - 253

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;

posted on 2008-01-22 13:23  万一  阅读(...)  评论(...编辑  收藏