ucconsts.pas

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

unit UCConsts;

interface

Const
  // new consts version 2 a 5 =========================================
  // Form Select Controls (design-time)
  Const_Contr_TitleLabel = 'Sele玢o de Componentes do Form. :';
  Const_Contr_GroupLabel = 'Grupo :';
  Const_Contr_CompDispLabel = 'Componentes Dispon韛eis :';
  Const_Contr_CompSelLabel = 'Componentes Selecionados :';
  Const_Contr_BtOK = '&OK';
  Const_Contr_BTCancel = '&Cancelar';
  Const_Contr_DescCol = 'Descri玢o';

  //===================================================================


  // group property Settins.AppMsgsForm
  Const_Msgs_BtNew         = '&Nova Mensagem';
  Const_Msgs_BtReplay      = '&Responder';
  Const_Msgs_BtForward     = 'E&ncaminhar';
  Const_Msgs_BtDelete      = '&Excluir';
  Const_Msgs_WindowCaption = 'Mensagens do Sistema';
  Const_Msgs_ColFrom       = 'Remetente';
  Const_Msgs_ColSubject    = 'Assunto';
  Const_Msgs_ColDate       = 'Data';
  Const_Msgs_PromptDelete  = 'Confirma excluir as mensagens selecionadas ?';

  // group property Settins.AppMsgsRec
  Const_MsgRec_BtClose       = '&Fechar';
  Const_MsgRec_WindowCaption = 'Mensagem';
  Const_MsgRec_Title         = 'Mensagem Recebida';
  Const_MsgRec_LabelFrom     = 'De :';
  Const_MsgRec_LabelDate     = 'Date';
  Const_MsgRec_LabelSubject  = 'Assunto';
  Const_MsgRec_LabelMessage  = 'Mensagem';

  // group property Settins.AppMsgsSend
  Const_MsgSend_BtSend        = '&Enviar';
  Const_MsgSend_BtCancel      = '&Cancelar';
  Const_MsgSend_WindowCaption = 'Mensagem';
  Const_MsgSend_Title         = 'Enviar Nova Mensagem';
  Const_MsgSend_GroupTo       = 'Para';
  Const_MsgSend_RadioUser     = 'Usu醨io :';
  Const_MsgSend_RadioAll      = 'Todos';
  Const_MsgSend_GroupMessage  = 'Mensagem';


  // Run errors
  MsgExceptConnection    = 'N鉶 informado o Connection, Transaction ou Database do componente %s';
  MsgExceptTransaction   = 'N鉶 informado o Transaction do componente %s';
  MsgExceptDatabase      = 'N鉶 informado o Database do componente %s';
  MsgExceptUserMngMenu   = 'Informe na propriedade UsersForm.MenuItem ou UsersForm.Action o Item respons醰el pelo controle de usu醨ios';
  MsgExceptUserProfile   = 'Informe na propriedade UsersProfile.MenuItem ou UsersProfile.Action o Item respons醰el pelo controle de Perfil de usu醨ios';
  MsgExceptChagePassMenu = 'Informe na propriedade ChangePasswordForm.MenuItem or .Action o Item que permite ao usu醨io alterar sua senha';
  MsgExceptAppID         = 'Na propriedade ApplicationID informe um nome para identificar a aplica玢o na tabela de permiss鮡s';
  MsgExceptUsersTable    = 'Na propriedade TableUsers informe o nome da tabela que ser