Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > C++ Builder > Переименование строки в ListBox'е


Автор: artsb 2.12.2007, 23:58
Как в ListBox'е переименовать строку. Получается только заменой:
Код

ListBox1->Items->Delete(index);
ListBox1->Items->Insert(index,Edit2->Text);

Но может есть простой способ?

И ещё вопрос:
Как сделать, чтобы при наведении, если строка не влазиит, появлялась всплывающая подсказка с полным названием.

Автор: 586 3.12.2007, 00:05
ListBox1->Items->Strings[1]="eeeee";  

Автор: Данкинг 3.12.2007, 01:31
Цитата(artsb @ 2.12.2007,  23:58)
И ещё вопрос:
Как сделать, чтобы при наведении, если строка не влазиит, появлялась всплывающая подсказка с полным названием.

В HINT помещать содержимое данного элемента листбокса. Не знаю точно, как это на C++ будет выглядеть, но суть именно такая.

Автор: artsb 3.12.2007, 10:12
586 спасибо. Всё как всегда гениально просто.
А насчёт второго вопроса:
Сначала думал, что разобрался, но что-то не получается. В книге есть пример:
Код

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;

//---------------------------------------------------------------------------
void __fastcall TForm1::NewHintProc(System::AnsiString &HintStr,
                                   bool &CanShow,
                                   THintInfo &HintInfo)
{
TPoint Pos;
if (HintInfo.HintControl==ListBox1)
 {
  Pos.x = 0;
  Pos.y = ListBox1->Tag;
  HintInfo.HintPos = ListBox1->ClientToScreen(Pos);
  HintInfo.HintStr = ListBox1->Hint;
 }
}
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{

}

void __fastcall TForm1::FormCreate(TObject *Sender)
{
  FHintRow = -1;
  Application->OnShowHint = NewHintProc; 
}
//---------------------------------------------------------------------------

void __fastcall TForm1::ListBox1MouseMove(TObject *Sender,
      TShiftState Shift, int X, int Y)
{
TRect ItemPos;
int   ItemNum;
AnsiString   FHint;
TPoint MousePos;    
MousePos.x = X;
MousePos.y= Y;
ItemNum = ListBox1->ItemAtPos(MousePos, True); 
if (ItemNum != FHintRow)   
{
  FHintRow = ItemNum;
  if (ItemNum !=-1)  
   {
      ItemPos = ListBox1->ItemRect(ItemNum);
      ListBox1->Tag = ItemPos.top; 
      FHint = ListBox1->Items->Strings[ItemNum];
      ListBox1->Hint = FHint;
      Application->CancelHint(); 
    }
  else
    {
      ListBox1->Hint = "";
      ListBox1->Tag = -1;
      Application->CancelHint(); 
    }
}
}
//---------------------------------------------------------------------------

Он работает с диска.
А когда пишу этот код в своём проекте, вылетает ошибка, что NewHintProc не является членом TForm1. В чём проблема?

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)