ucmessages.pas

delphi 控件有需要的可以下载看看,可以用的,希望对你用 帮助

procedure TUserSettings.SetFCadUserFormMSG(const Value: TCadUserFormMSG);
begin
  UsersForm := Value;
end;

procedure TUserSettings.SetFFormLoginMsg(const Value: TLoginFormMSG);
begin
  Login := Value;
end;

procedure TUserSettings.SetFLogControlFormMSG(
  const Value: TLogControlFormMSG);
begin
  FLogControlFormMSG := Value;
end;



procedure TUserSettings.SetFPermissFormMSG(const Value: TPermissFormMSG);
begin
  Rights := Value;
end;

procedure TUserSettings.SetFProfileUserFormMSG(
  const Value: TProfileUserFormMSG);
begin
  FProfileUserFormMSG := Value;
end;

procedure TUserSettings.SetFResetPassword(const Value: TResetPassword);
begin
 FResetPassword := Value;
end;

procedure TUserSettings.SetFTrocaSenhaFormMSG(
  const Value: TTrocaSenhaFormMSG);
begin
  ChangePassword := Value;
end;

procedure TUserSettings.SetFUserCommonMsg(const value: TUserCommonMSG);
begin
  CommonMessages := Value;
end;

{ TUserCommonMSG }

procedure TUserCommonMSG.Assign(Source: TPersistent);
begin
  if Source is TUserCommonMSG then begin
    Self.BlankPassword :=  TUserCommonMSG(Source).BlankPassword;
    Self.PasswordChanged := TUserCommonMSG(Source).PasswordChanged;
    Self.InitialMessage := TUserCommonMSG(Source).InitialMessage;
    Self.InvalidLogin := TUserCommonMSG(Source).InvalidLogin;
    Self.MaxLoginAttemptsError := TUserCommonMSG(Source).MaxLoginAttemptsError;
    Self.ChangePasswordError := TUserCommonMSG(Source).ChangePasswordError;
  end else inherited;
end;

constructor TUserCommonMSG.Create(Aowner: TComponent);
begin
  inherited Create;
  ChangePasswordError := TChangePassError.Create(nil);
  FFirstMSG := TStringList.Create;
end;

destructor TUserCommonMSG.Destroy;
begin
  inherited;
end;



procedure TUserCommonMSG.SetFErroTrocaSenha(const Value: TChangePassError);
begin
 FChangePasswordError := Value;
end;

procedure TUserCommonMSG.SetFFirstMSG(const Value: TStrings);
begin
  FFirstMSG.Assign(Value);
end;

{ TLoginFormMSG }

procedure TLoginFormMSG.Assign(Source: TPersistent);
begin
  if Source is TLoginFormMSG then begin
    with Source as TLoginFormMSG do begin
      Self.WindowCaption := WindowCaption;
      Self.LabelUser := LabelUser;
      Self.LabelPassword := LabelPassword;
      Self.BtOk := BtOK;
      Self.BtCancel := BtCancel;
    end;
  end else inherited;
end;

constructor TLoginFormMSG.Create(AOwner: TComponent);
begin
  inherited Create;
  FTopImage := TPicture.Create;
  FLeftImage := TPicture.Create;
  FBottomImage := TPicture.Create;
end;

destructor TLoginFormMSG.Destroy;
begin
  inherited;
end;

procedure TLoginFormMSG.SetFBottomImage(const Value: TPicture);
begin
  FBottomImage.Assign(Value);
end;

procedure TLoginFormMSG.SetFLeftImage(const Value: TPicture);
begin
  FLeftImage.Assign(Value);
end;

procedure TLoginFormMSG.SetFTopImage(const Value: TPicture);
begin
  FTopImage.Assign(Value);
end;

{ TCadUserFormMSG }

procedure TCadUserFormMSG.Assign(Source: TPersistent);
begin
  if Source is TCadUserFormMSG then begin
    with Source as TCadUserFormMSG do begin
      Self.WindowCaption := WindowCaption;
      Self.LabelDescription := LabelDescription;
      Self.ColName := ColName;
      Self.ColLogin := ColLogin;
      Self.ColEmail := ColEmail;
      Self.BtAdd := BtAdd;
      Self.BtChange := BtChange;
      Self.BtDelete := BtDelete;
      Self.BtRights := BtRights;
      Self.BtPassword := BtPassword;
      Self.BtClose := BtClose;
      Self.PromptDelete := PromptDelete;
    end;
  end else inherited;
end;

constructor TCadUserFormMSG.Create(AOwner: TComponent);
begin
  inherited Create;
end;

destructor TCadUserFormMSG.Destroy;
begin
  inherited;
end;

{ TAddUserFormMSG }

procedure TAddUserFormMSG.Assign(Source: TPersistent);
begin
  if Source is TAddUserFormMSG then begin
    with Source as TAddUserFormMSG do begin
      Self.WindowCaption := WindowCaption;
      Self.LabelAdd := LabelAdd;
      Self.LabelChange := LabelChange;
      Self.LabelName := LabelName;
      Self.LabelLogin := LabelLogin;
      Self.LabelEmail := LabelEmail;
      Self.LabelPerfil := LabelPerfil;
      Self.CheckPrivileged := CheckPrivileged;
      Self.BtSave := BtSave;
      Self.BtCancel := BtCancel;
    end;
  end else inherited;
end;

constructor TAddUserFormMSG.Create(AOwner: TComponent);
begin
  inherited Create;
end;

destructor TAddUserFormMSG.Destroy;
begin
  inherited;
end;

{ TPermissFormMSG }

procedure TPermissFormMSG.Assign(Source: TPersistent);
begin
  if Source is TPermissFormMSG then begin
    with Source as TPermissFormMSG do begin
      Self.WindowCaption := WindowCaption;
      Self.LabelUser := LabelUser;
      Self.LabelProfile := LabelProfile;
      Self.PageMenu := PageMenu;
      Self.PageActions := PageActions;
      Self.BtUnlock := BtUnlock;
      Self.BtLock := BtLock;
      Self.BtSave := BtSave;
      Self.BtCancel := BtCancel;
    end;
  end else inherited;
end;

constructor TPermissFormMSG.Create(AOwner: TComponent);
begin
  inherited Create;
end;

destructor TPermissFormMSG.Destroy;
begin
  inherited;
end;

{ TTrocaSenhaFormMSG }

procedure TTrocaSenhaFormMSG.Assign(Source: TPersistent);
begin
  if Source is TTrocaSenhaFormMSG then begin
    with Source as TTrocaSenhaFormMSG do begin
      Self.WindowCaption := WindowCaption;
      Self.LabelDescription := LabelDescription;
      Self.LabelCurrentPassword := LabelCurrentPassword;
      Self.LabelNewPassword := LabelNewPassword;
      Self.LabelConfirm := LabelConfirm;
      Self.BtSave := BtSave;
      Self.BtCancel := BtCancel;
    end;
  end else inherited;
end;

constructor TTrocaSenhaFormMSG.Create(AOwner: TComponent);
begin
  inherited Create;
end;

destructor TTrocaSenhaFormMSG.Destroy;
begin
  inherited;
end;

{ TChangePassError }

procedure TChangePassError.Assign(Source: TPersistent);
begin
  if Source is TChangePassError then begin
    with Source as TchangePassError do begin
      Self.InvalidCurrentPassword := InvalidCurrentPassword;
      Self.NewPasswordError := NewPasswordError;
      Self.NewEqualCurrent := NewEqualCurrent;
      Self.PasswordRequired := PasswordRequired;
      Self.MinPasswordLength := MinPasswordLength;
    end;
  end else inherited;

end;

constructor TChangePassError.Create(Aowner: TComponent);
begin
  inherited Create;
end;

destructor TChangePassError.Destroy;
begin
  inherited;
end;

{ TResetPassword }

procedure TResetPassword.Assign(Source: TPersistent);
begin
  if Source is TResetPassword then begin
    Self.WindowCaption :=  TResetPassword(Source).WindowCaption;
    Self.LabelPassword := TResetPassword(Source).LabelPassword;
  end else inherited;
end;

constructor TResetPassword.Create(AOwner: TComponent);
begin
  inherited Create;
end;

destructor TResetPassword.Destroy;
begin
  inherited;
end;

{ TProfileUserFormMSG }

procedure TProfileUserFormMSG.Assign(Source: TPersistent);
begin
  if Source is TProfileUserFormMSG then begin
    with Source as TProfileUserFormMSG do begin
      Self.WindowCaption := WindowCaption;
      Self.LabelDescription := LabelDescription;
      Self.ColProfile := ColProfile;
      Self.BtAdd := BtAdd;
      Self.BtChange := BtChange;
      Self.BtDelete := BtDelete;
      Self.BtRights := BtRights;   //BGM
      Self.BtClose := BtClose;
      Self.PromptDelete := PromptDelete;
    end;
  end else inherited;
end;

constructor TProfileUserFormMSG.Create(AOwner: TComponent);
begin
  inherited Create;
end;

destructor TProfileUserFormMSG.Destroy;
begin
  inherited;
end;

{ TAddProfileFormMSG }

procedure TAddProfileFormMSG.Assign(Source: TPersistent);
begin
  if Source is TAddProfileFormMSG then begin
    with Source as TAddProfileFormMSG do begin
      Self.WindowCaption := WindowCaption;
      Self.LabelAdd := LabelAdd;
      Self.LabelChange := LabelChange;
      Self.LabelName := LabelName;
      Self.BtSave := BtSave;
      Self.BtCancel := BtCancel;
    end;
  end else inherited;
end;

constructor TAddProfileFormMSG.Create(AOwner: TComponent);
begin
  inherited Create;
end;

destructor TAddProfileFormMSG.Destroy;
begin
  inherited;
end;

{ TLogControlFormMSG }

procedure TLogControlFormMSG.Assign(Source: TPersistent);
begin
  if Source is TLogControlFormMSG then begin
    with Source as TLogControlFormMSG do begin
      Self.WindowCaption := WindowCaption;
      Self.LabelDescription := LabelDescription;
      Self.LabelUser := LabelUser;
      Self.LabelDate := LabelDate;
      Self.LabelLevel := LabelLevel;
      Self.ColLevel := ColLevel;
      Self.ColMessage := ColMessage;
      Self.ColUser := ColUser;
      Self.ColDate := ColDate;
      Self.BtFilter := BtFilter;
      Self.BtDelete := BtDelete;
      Self.PromptDelete := PromptDelete;
      Self.BtClose := BtClose;
    end;
  end else inherited;
end;

constructor TLogControlFormMSG.Create(AOwner: TComponent);
begin
  inherited Create;
end;

destructor TLogControlFormMSG.Destroy;
begin

  inherited;
end;

{ TAppMessagesMSG }

procedure TAppMessagesMSG.Assign(Source: TPersistent);
begin
  if Source is TAppMessagesMSG then
  begin
    with Source as TAppMessagesMSG do
    begin
      Self.MsgsForm_BtNew :=  MsgsForm_BtNew;
      Self.MsgsForm_BtReplay := MsgsForm_BtReplay;
      Self.MsgsForm_BtForward := MsgsForm_BtForward;
      Self.MsgsForm_BtDelete := MsgsForm_BtDelete;
      Self.MsgsForm_WindowCaption := MsgsForm_WindowCaption;
      Self.MsgsForm_ColFrom := MsgsForm_ColFrom;
      Self.MsgsForm_ColSubject := MsgsForm_ColSubject;
      Self.MsgsForm_ColDate := MsgsForm_ColDate;
      Self.MsgsForm_PromptDelete := MsgsForm_PromptDelete;

      Self.MsgRec_BtClose := MsgRec_BtClose;
      Self.MsgRec_WindowCaption := MsgRec_WindowCaption;
      Self.MsgRec_Title := MsgRec_Title;
      Self.MsgRec_LabelFrom := MsgRec_LabelFrom;
      Self.MsgRec_LabelDate := MsgRec_LabelDate;
      Self.MsgRec_LabelSubject := MsgRec_LabelSubject;
      Self.MsgRec_LabelMessage := MsgRec_LabelMessage;

      Self.MsgSend_BtSend := MsgSend_BtSend;
      Self.MsgSend_BtCancel := MsgSend_BtCancel;
      Self.MsgSend_WindowCaption := MsgSend_WindowCaption;
      Self.MsgSend_Title := MsgSend_Title;
      Self.MsgSend_GroupTo := MsgSend_GroupTo;
      Self.MsgSend_RadioUser := MsgSend_RadioUser;
      Self.MsgSend_RadioAll := MsgSend_RadioAll;
      Self.MsgSend_GroupMessage := MsgSend_GroupMessage;

    end;
  end else inherited;
end;

constructor TAppMessagesMSG.Create(Aowner: TComponent);
begin
  inherited Create;
end;

destructor TAppMessagesMSG.Destroy;
begin
  inherited;
end;

end.