6 Star 3 Fork 0

阿甘/CTestAutoJudge

加入 Gitee
与超过 1200万 开发者一起发现、参与优秀开源项目,私有仓库也完全免费 :)
免费加入
克隆/下载
frmselectstudir.cpp 1.29 KB
一键复制 编辑 原始数据 按行查看 历史
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "frmselectstudir.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFrmSelectOneStuDir *FrmSelectOneStuDir;
//---------------------------------------------------------------------------
__fastcall TFrmSelectOneStuDir::TFrmSelectOneStuDir(TComponent* Owner
,AnsiString tip , TStringList* dirs)
: TForm(Owner)
{
this->MmoTip->Text=tip;
for(int k=0;k<dirs->Count;k++)
{
LstBxStuDirs->Items->Add(dirs->Strings[k]);
}
}
//---------------------------------------------------------------------------
void __fastcall TFrmSelectOneStuDir::BtnOkClick(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
void __fastcall TFrmSelectOneStuDir::FormCloseQuery(TObject *Sender,
bool &CanClose)
{
if(this->LstBxStuDirs->ItemIndex!=-1)
{
CanClose=true;
}
else
{
MessageDlg("你没有选择当前学生对应的答题结果目录", mtInformation,
TMsgDlgButtons() << mbOK, 0);
CanClose=false;
}
}
//---------------------------------------------------------------------------
马建仓 AI 助手
尝试更多
代码解读
代码找茬
代码优化
C++
1
https://gitee.com/gancaijun/CTestAutoJudge.git
git@gitee.com:gancaijun/CTestAutoJudge.git
gancaijun
CTestAutoJudge
CTestAutoJudge
develop

搜索帮助