expgriddebug.dpr

来自「Delphi高级开发指南是开发程序的好帮手」· DPR 代码 · 共 31 行

program ExpGridDebug;

uses
  Forms,
  ExpGForm in 'ExpGForm.pas' {GridExpertForm},
  ExpGResF in 'ExpGResF.pas' {ResultForm};

{$R *.RES}

begin
  Application.Initialize;
  Application.CreateForm(TGridExpertForm, GridExpertForm);
  with GridExpertForm do
    Width := Width * 2;
  with GridExpertForm.MemoSource do
  begin
    Top := 0;
    Left := GridExpertForm.ClientWidth div 2;
    Width := GridExpertForm.ClientWidth div 2;
    Height := GridExpertForm.ClientHeight div 2;
  end;
  with GridExpertForm.MemoForm do
  begin
    Top := GridExpertForm.ClientHeight div 2;
    Left := GridExpertForm.ClientWidth div 2;
    Width := GridExpertForm.ClientWidth div 2;
    Height := GridExpertForm.ClientHeight div 2;
  end;
  Application.Run;
end.