ucmessages.pas

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

      Self.BtAdd := BtAdd;
      Self.BtChange := BtChange;
      Self.BtDelete := BtDelete;
      Self.BtRights := BtRights;
      Self.BtPassword := BtPassword;
      Self.BtClose := BtClose;
      Self.PromptDelete := PromptDelete;
      Self.PromptDelete_WindowCaption := PromptDelete_WindowCaption; //added by fduenas
    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;
      Self.PromptDelete_WindowCaption := PromptDelete_WindowCaption; //added by fduenas
    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.BtClose := BtClose;
      Self.PromptDelete := PromptDelete;
      Self.PromptDelete_WindowCaption := PromptDelete_WindowCaption; //added by fduenas
      Self.OptionUserAll := OptionUserAll; //added by fduenas
      Self.OptionLevelLow := OptionLevelLow; //added by fduenas
      Self.OptionLevelNormal := OptionLevelNormal; //added by fduenas
      Self.OptionLevelHigh := OptionLevelHigh; //added by fduenas
      Self.OptionLevelCritic := OptionLevelCritic; //added by fduenas
      Self.DeletePerformed := DeletePerformed; //added by fduenas
    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.MsgsForm_PromptDelete_WindowCaption := MsgsForm_PromptDelete_WindowCaption; //added by fduenas
      Self.MsgsForm_BtClose := MsgsForm_BtClose; //added by fduenas
      Self.MsgsForm_NoMessagesSelected := MsgsForm_NoMessagesSelected; //added by fduenas
      Self.MsgsForm_NoMessagesSelected_WindowCaption := MsgsForm_NoMessagesSelected_WindowCaption; //added by fduenas

      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;
      Self.MsgSend_LabelSubject := MsgSend_LabelSubject;
      Self.MsgSend_LabelMessageText := MsgSend_LabelMessageText;
    end;
  end else inherited;
end;

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

destructor TAppMessagesMSG.Destroy;
begin
  inherited;
end;

end.