C++ builder xe10改造CheckListBox组件使其显示完整内容（BCB）可以下载实例

#include <vcl.h>
#pragma hdrstop

#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm2 *Form2;
//---------------------------------------------------------------------------
__fastcall TForm2::TForm2(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm2::FormCreate(TObject *Sender)
{
CheckListBox1->ShowHint =true;

}
//---------------------------------------------------------------------------
void __fastcall TForm2::Button1Click(TObject *Sender)
{
OpenDialog1->Options.Clear();
OpenDialog1->Options<<ofAllowMultiSelect<<ofFileMustExist;//允许选择多个文件
OpenDialog1->Filter ="All Files|*.*";
if(OpenDialog1->Execute())
    CheckListBox1->Items->Assign(OpenDialog1->Files);//将选择的多个文件显示于ListBox组件 
}
//---------------------------------------------------------------------------
void __fastcall TForm2::CheckListBox1MouseDown(TObject *Sender, TMouseButton Button,
          TShiftState Shift, int X, int Y)
{
//单击列表框中某项时显示其完整内容

CheckListBox1->Hint =CheckListBox1->Items->Strings[CheckListBox1->ItemIndex];
}
//---------------------------------------------------------------------------
void __fastcall TForm2::CheckListBox1MouseMove(TObject *Sender, TShiftState Shift,
          int X, int Y)
{
  //当鼠标进入列表框时显示该项完整内容
Tag=CheckListBox1->ItemAtPos(Point(X,Y),true);
if(Tag<0||Tag>CheckListBox1->Count+1)
       return;
CheckListBox1->Hint =CheckListBox1->Items->Strings[Tag];
}

//--------------------编译效果

 

 

//------------可以下载实例

//   https://download.csdn.net/download/lzksword/11818041