哪个兄弟知道:如何得到windows画布的最大高度/最大宽度(注意是windows画布)及如何解决

Question

self.Image1.Height := 1000000;
  self.Image1.Canvas.TextOut(1000000,10000,'TEST');  
  就会出错.
---------------------------
Debugger Exception Notification
---------------------------
Project Project1.exe raised exception class EOutOfResources with message '存储空间不足，无法处理此命令。
'. Process stopped. Use Step or Run to continue.
---------------------------
OK   Help   
---------------------------哪个兄弟知道:如何得到windows画布的最大高度/最大宽度(注意是windows画布)及如何解决

Answer 1

问题也就是  如何得到windows系统画布的高度/宽度.

Answer 2

兄弟,你的程序或者做法不对,你先将 image.picture赋值一个bmp图
然后进行操作,我可以达到下面的大小,也不会提示出错,unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, jpeg, ExtCtrls;type
  TForm1 = class(TForm)
    Button1: TButton;
    Image1: TImage;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
Image1.Height := 4294967295;
  Image1.Canvas.TextOut(4294967295,10000,'TEST');
end;end.