57 lines
1.3 KiB
Plaintext
57 lines
1.3 KiB
Plaintext
unit DCaPolicyInfo;
|
|
|
|
interface
|
|
|
|
uses
|
|
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
|
|
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, FCaPolicyInfo, Vcl.ExtCtrls,
|
|
Vcl.StdCtrls, Define;
|
|
|
|
type
|
|
TDlgCaPolicyInfo = class(TForm)
|
|
private
|
|
{ Private declarations }
|
|
FrmCaPolicyInfo_: TFrmCaPolicyInfo;
|
|
public
|
|
{ Public declarations }
|
|
CName,
|
|
CaNames,
|
|
TaskNames: String;
|
|
Constructor Create(aOwner: TComponent); override;
|
|
|
|
procedure process_WM_CAPOLICY_DLG_OK(var msg: TMessage); Message WM_CAPOLICY_DLG_OK;
|
|
procedure process_WM_CAPOLICY_DLG_CANCEL(var msg: TMessage); Message WM_CAPOLICY_DLG_CANCEL;
|
|
end;
|
|
|
|
var
|
|
DlgCaPolicyInfo: TDlgCaPolicyInfo;
|
|
|
|
implementation
|
|
|
|
{$R *.dfm}
|
|
|
|
Constructor TDlgCaPolicyInfo.Create(aOwner: TComponent);
|
|
begin
|
|
Inherited Create(aOwner);
|
|
|
|
FrmCaPolicyInfo_ := TFrmCaPolicyInfo.Create(Self);
|
|
FrmCaPolicyInfo_.Parent := Self;
|
|
FrmCaPolicyInfo_.Align := alClient;
|
|
FrmCaPolicyInfo_.Visible := true;
|
|
end;
|
|
|
|
procedure TDlgCaPolicyInfo.process_WM_CAPOLICY_DLG_OK(var msg: TMessage);
|
|
begin
|
|
CName := FrmCaPolicyInfo_.edName.Text;
|
|
CaNames := FrmCaPolicyInfo_.GetCaNames;
|
|
TaskNames := FrmCaPolicyInfo_.GetTaskNames;
|
|
ModalResult := mrOk;
|
|
end;
|
|
|
|
procedure TDlgCaPolicyInfo.process_WM_CAPOLICY_DLG_CANCEL(var msg: TMessage);
|
|
begin
|
|
ModalResult := mrCancel;
|
|
end;
|
|
|
|
end.
|