umain.pas

动态修改delphi窗口

unit uMain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TfrmMain = class(TForm)
    dlgOpen1: TOpenDialog;
    scrlbx1: TScrollBox;
    pnlBottom: TPanel;
    btnShowForm: TButton;
    btn1: TButton;
    procedure btnShowFormClick(Sender: TObject);
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmMain: TfrmMain;

implementation

uses uReader;

{$R *.dfm}

procedure TfrmMain.btnShowFormClick(Sender: TObject);
var
  AForm: TForm;
begin
  if dlgOpen1.Execute then
  begin
    AForm := ShowForm(dlgOpen1.FileName);

    if Assigned(AForm) then
    begin
      AForm.Parent := scrlbx1;
      AForm.Left := 0;
      AForm.Top := 0;
      AForm.Show;
    end;
  end;
end;

procedure TfrmMain.btn1Click(Sender: TObject);
const
  SInformation =
  '代码比较简单，主要原理参考CnPack上的DFM Viewer v0.1' + #13#10 +
  '在原功能基础上，增加了对Inherited的窗体的显示功能' + #13#10 +
  '如果要显示的窗体中有本单元未包括的控件、或者自定义的Frame，请在uReader单元中注册才可使用' + #13#10 +
  '未对不指明组件做处理，需要处理可以参考 DFM Viewer v0.1' + #13#10 +
  '弹出查找基窗体的对话框时，如果选择基窗体错误或者未选择，程序会报错' + #13#10 +
  '具体使用时，可人为建一个基类窗体的对照关系，避免因选择错误导致异常' + #13#10 +
  '作者:aliu, Email:[e-mail]';
begin
  Application.MessageBox(PChar(SInformation), '说明', MB_OK +
    MB_ICONINFORMATION);
end;

end.