读书人

delphi窗口全屏保存任

发布时间: 2012-10-20 14:12:48 作者: rapoo

delphi窗口全屏保留任
我搜索了一下,到有人可以用
procedure TForm1.FormCreate(Sender: TObject);
begin
Self.BorderStyle := bsNone;
Self.Left := Screen.WorkAreaLeft;
Self.Top := Screen.WorkAreaTop;
Self.Width := Screen.WorkAreaWidth;
Self.Height := Screen.WorkAreaHeight;
end;

但是我提示WorkAreaLeft些是未定的字符。

是我哪弄了麽?各位不吝教,拜!

[解决办法]
这确实是个十分费解的问题!因为那些属性都在Forms单元里定义了的,除非你的单元连Forms都没引用!delphi6、7、2010 都如此。
[解决办法]

Delphi(Pascal) code
  property WorkAreaRect: TRect read GetWorkAreaRect;    property WorkAreaHeight: Integer read GetWorkAreaHeight;    property WorkAreaLeft: Integer read GetWorkAreaLeft;    property WorkAreaTop: Integer read GetWorkAreaTop;    property WorkAreaWidth: Integer read GetWorkAreaWidth;Form 自带的 

读书人网 >.NET

热点推荐