简简单单的问题一个小时后结帖

Question

1、在用DELPHI时希望FORM能大于500*800（HEIGHT *WIDTH）个象素点，至少也是WIDTH=1000，HEIGHT=1500，发现DELPHI只能是500*800如何解决使本人的FORM变大些2、不想加载FORM窗体如果只想在PAS文件中定义一个过程，过程中调用其他FORM，中的组件怎么解决啊？？
   如：UNIT UNIT3；
      PROCEDURE  INIT（）；
      BEGIN
              FORM1.caption:='sssss';
              form2.button.caption='xxxx';
      end;
  条件：FORM1，FORM2都有了，问题没有FORM3，只有UNIT3，PAS文件怎么处理啦
先谢谢各位了！！！！！

Answer 1

use 其它两个单元即可调用。不过事先你要先创建这两个窗体对象！也可再unit3中创建。

Answer 2

1.正常情况下窗体是800*580
2.把你要写的东西封到单元里，然后uses.

Answer 3

1.将分辨率设为1280*1024
2.没有FORM还不是一样处理，包括要用的单元，直接调用即可（不太清楚你的想法）

Answer 4

Form的大小限制是根据屏幕分辨率来的吧，可以在Form上加一个Panel，设置它的大小，在超过Form的大小时，Form会出现滚动条，不知能否满足你的要求

Answer 5

问题2:unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation
uses
  unit2;{$R *.DFM}procedure TForm1.Button1Click(Sender: TObject);
begin
  init(Self);
end;end.// pas 文件
unit Unit2;interface
uses
  windows, Forms, Controls,stdctrls;PROCEDURE  INIT(AForm : TForm);implementation
PROCEDURE  INIT(AForm : TForm);
begin
  AForm.Caption := 'ssss';
  TButton(AForm.FindComponent('Button1')).Caption := 'xxxxx';
  TEdit(AForm.FindComponent('Edit1')).Text := '0000000';
end;end.