fieldtext.cpp
来自「BCB 级联表的设计源代码。有需要的朋友可以看看。BCB这个东西不知道还有人用么」· C++ 代码 · 共 65 行
CPP
65 行
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "FieldText.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TfrmFieldText *frmFieldText;
//---------------------------------------------------------------------------
__fastcall TfrmFieldText::TfrmFieldText(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
AnsiString __fastcall TfrmFieldText::GetDataFiled(void)
{
return dmmoFieldText->DataField;
}
//---------------------------------------------------------------------------
TDataSource* __fastcall TfrmFieldText::GetDataSource(void)
{
return dmmoFieldText->DataSource;
}
//---------------------------------------------------------------------------
void __fastcall TfrmFieldText::SetDataField(AnsiString Value)
{
if(Value != "")
dmmoFieldText->DataField = Value;
}
//---------------------------------------------------------------------------
void __fastcall TfrmFieldText::SetDataSource(TDataSource* Value)
{
if(Value != NULL)
dmmoFieldText->DataSource = Value;
}
//---------------------------------------------------------------------------
void __fastcall TfrmFieldText::FormShow(TObject *Sender)
{
IsEditing = false;
}
//---------------------------------------------------------------------------
void __fastcall TfrmFieldText::dmmoFieldTextKeyPress(TObject *Sender,
char &Key)
{
if(IsEditing)
// 如果用户正在修改记录,则并不需要给出任何提示信息
return;
// 用户开始修改记录,必须给出提示信息
if(Application->MessageBox(
"正在修改记录,如果这里修改记录的内容,则关闭窗口后记录将修改。\n确实需要修改记录吗?",
NULL, MB_YESNO) != IDYES)
{
// 撤销用户的按键
Key = 0;
}
else
{
IsEditing = true;
}
}
//---------------------------------------------------------------------------
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?