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 都如此。
[解决办法]
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 自带的