devicetypedialog.pas

采用Delphi开发环境编写的一个简单代码

unit DeviceTypeDialog;

interface

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

type
  // 云台,摄像机
  TDeviceType = (dtHDR, dtPTL,dtPTLController);

  TDeviceTypeDlg = class(TComponent)
  private
    FDeviceType: TDeviceType;
  public
    function Execute: Boolean;
    property DeviceType: TDeviceType read FDeviceType;
  end;

  TfrmDeviceTypeDlg = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    btnCancel: TButton;
    btnOk: TButton;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    cmbDeviceType: TComboBox;
    procedure btnOkClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    FDlg: TDeviceTypeDlg;
    procedure SetPropsOfEditObj;
  public
    { Public declarations }
  end;

var
  frmDeviceTypeDlg: TfrmDeviceTypeDlg;

implementation

{$R *.DFM}

function TDeviceTypeDlg.Execute: Boolean;
var
  l_fm: TfrmDeviceTypeDlg;
begin
  l_fm := TfrmDeviceTypeDlg.Create(Application);
  try
    with l_fm do
    begin
      FDlg := self;
      { TODO : 加入处理 }
      cmbDeviceType.ItemIndex := 0;
      Result := (ShowModal = mrOk)
    end;
  finally
    l_fm.free;
  end;
end;

procedure TfrmDeviceTypeDlg.SetPropsOfEditObj;
begin
  with FDlg do
  begin
    case cmbDeviceType.ItemIndex of
      0: FDeviceType := dtHDR;
      1: FDeviceType := dtPTL;
      2: FDeviceType := dtPTLController;
    end;
  end;
end;

procedure TfrmDeviceTypeDlg.btnOkClick(Sender: TObject);
begin
  SetPropsOfEditObj;
  ModalResult := mrOk;
end;

procedure TfrmDeviceTypeDlg.FormCreate(Sender: TObject);
begin
  Font := Screen.MenuFont;
end;

end.