udialogdataitemview.pas

来自「一整套的源代码」· PAS 代码 · 共 38 行

unit UDialogDataItemView;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, UMyDialog,
  UDataItemView;

type
  TDialogDataItemView = class(TMyDialog)
  private
    DataItemView: TDataItemView;
  public
    constructor Create(Owner: TComponent; DataItemView: TDataItemView); overload;
  end;

implementation

{$R *.dfm}

{ TDialogDataItemView }

constructor TDialogDataItemView.Create(Owner: TComponent; DataItemView: TDataItemView);
begin
  inherited Create(Owner);
  Self.DataItemView := DataItemView;
  DataItemView.Parent := Self;
  DataItemView.Left := 0;
  DataItemView.Top := 0;
  Width := DataItemView.Width + BorderWidth * 2;
  Height := DataItemView.Height + BorderWidth * 2;
  Caption := DataItemView.GetCaption;
end;

end.