d_lmddesignmanager0.pas

delphi 运行期间窗体设计

unit d_LMDDesignManager0;

interface

uses
  Windows, Messages, SysUtils, {$IFNDEF VER130}Variants, {$ENDIF} Classes, Graphics, Controls, Forms,
  Dialogs, LMDDsgComboBox, StdCtrls, Grids, LMDDsgPropPage, LMDDsgPropInsp,
  LMDDsgManager, LMDDsgClass, LMDDsgDesigner, ImgList, ExtCtrls, Menus
  {$IFDEF VER130},LMDDsgD5Adds{$ENDIF};

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    LMDObjectComboBox1: TLMDObjectComboBox;
    LMDPropertyInspector1: TLMDPropertyInspector;
    LMDDesignManager1: TLMDDesignManager;
    LMDDesigner1: TLMDDesigner;
    Label1: TLabel;
    Memo1: TMemo;
    Label2: TLabel;
    Button3: TButton;
    Label3: TLabel;
    Memo2: TMemo;
    ImageList1: TImageList;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure LMDDesignManager1Change(Sender: TObject);
    procedure LMDDesignManager1ChangeSelection(Sender: TObject);
    procedure LMDDesigner1GetImageIndex(Sender: TObject;
      AComponentClass: TComponentClass; var AImageIndex: Integer);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses d_LMDDesignManager1;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  if not LMDDesigner1.Active then
  begin
    LMDDesigner1.DesignControl := Form2;
    LMDDesigner1.HiddenClasses.Add(TMenuItem);
    LMDDesigner1.Active := True;
    LMDDesignManager1.Designers[0].IsCurrent := True;
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  LMDDesigner1.Active := False;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  Memo1.Lines.Clear;
end;

procedure TForm1.LMDDesignManager1Change(Sender: TObject);
begin
  if Memo1 <> nil then
    Memo1.Lines.Add('OnChange');
end;

procedure TForm1.LMDDesignManager1ChangeSelection(Sender: TObject);
var
  LI: Integer;
begin
  if Memo2 <> nil then
  begin
    Memo2.Lines.BeginUpdate;
    try
      Memo2.Lines.Clear;
      for LI := 0 to LMDDesignManager1.Selection.Count - 1 do
        Memo2.Lines.Add(LMDDesignManager1.Selection[LI].GetNamePath);
    finally
      Memo2.Lines.EndUpdate;
    end;
  end;

  if Memo1 <> nil then
    Memo1.Lines.Add('OnChangeSelection');
end;

procedure TForm1.LMDDesigner1GetImageIndex(Sender: TObject;
  AComponentClass: TComponentClass; var AImageIndex: Integer);
begin
  if (AComponentClass = TTimer) or
    AComponentClass.InheritsFrom(TTimer) then
    AImageIndex := 0
  else if (AComponentClass = TPopupMenu) or
    AComponentClass.InheritsFrom(TPopupMenu) then
    AImageIndex := 1;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  RegisterStandardCategories(LMDPropertyInspector1);
end;

end.