designfrom.~pas

delphi 运行进行设计模式,象delphi的编辑环境一样

unit designFrom;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin,
  DesignHookUtils, DesignEditForm;

type
  TfrmDesignForm = class(TForm)
    ControlBar1: TControlBar;
    ToolBar1: TToolBar;
    Panel1: TPanel;
    StatusBar1: TStatusBar;
    But_BeginDesign: TButton;
    But_EndDesign: TButton;
    Panel_edir: TPanel;
    But_add: TButton;
    procedure Button1DragDrop(Sender, Source: TObject; X, Y: Integer);
    procedure But_BeginDesignClick(Sender: TObject);
    procedure But_EndDesignClick(Sender: TObject);
    procedure But_addClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
    FIDesignerHook: IDesignerHook;
  public
    { Public declarations }
  end;

var
  frmDesignForm: TfrmDesignForm;

implementation

{$R *.dfm}

procedure TfrmDesignForm.Button1DragDrop(Sender, Source: TObject; X,
  Y: Integer);
begin
  StatusBar1.Panels[0].Text := IntTOStr(X)+','+IntTOStr(Y);
end;

procedure TfrmDesignForm.But_BeginDesignClick(Sender: TObject);
begin
  //FIDesignerHook := BeginDesign(self, self.ScrollBox_dsgEdit);
  if frmDesignEditForm <> nil then
  begin
    FIDesignerHook := BeginDesign(frmDesignEditForm);
    FIDesignerHook.PaintGrid;
    FIDesignerHook.Modified;
  end;
end;

procedure TfrmDesignForm.But_EndDesignClick(Sender: TObject);
begin
  if frmDesignEditForm <> nil then
  begin
    EndDesign(frmDesignEditForm);
  end;
end;

procedure TfrmDesignForm.But_addClick(Sender: TObject);
var vaddbut: TButton;
begin
  vaddbut := TButton.Create(frmDesignEditForm);
  vaddbut.Parent := frmDesignEditForm;
  vaddbut.Top := 10;
  vaddbut.Left := 10;
  vaddbut.Width := 50;
  vaddbut.Height := 10;
  vaddbut.Caption := 'new but1';
end;

procedure TfrmDesignForm.FormCreate(Sender: TObject);
begin
  frmDesignEditForm:= TfrmDesignEditForm.CreateParented(self.Panel_edir.Handle);
  //frmDesignEditForm.Parent := self.Panel_edir;
  frmDesignEditForm.StatusBar1 := self.StatusBar1;
  frmDesignEditForm.Show;
end;

procedure TfrmDesignForm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  frmDesignEditForm.Free;
end;

end.