VPF::Hint в раскрытом меню ComboBox - Форум программистов

Comm

Дата 25.1.2009, 14:03 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 269
Регистрация: 31.8.2007
Где: Санкт-Петербург

Репутация: 2
Всего: 1

Есть у меня пример кода ..если текст в TEdit не помещается полностью ,то он отображается в Hint-e(вспылающая подсказка).

Вопрос, можно ли то же самое сделать в ComboBox... что бы при наведении на одну из строк в раскрытом ComboBoxe вспылала подсказка с полным текстом строки? если да то опишите пожалуйста примерные действия =)) и это.... как можно опять же в раскрытом ComboBoxe нажатием правой кнопкой мыши вызвать PopupMenu. Огромное Спасибо за внимание и понимание =)....

Это сообщение отредактировал(а) Comm - 26.1.2009, 21:46

--------------------

=)))))

Comm

Дата 26.1.2009, 22:41 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 269
Регистрация: 31.8.2007
Где: Санкт-Петербург

Репутация: 2
Всего: 1

Идей ни у кого нету ?

Это сообщение отредактировал(а) Comm - 26.1.2009, 22:42

--------------------

=)))))

Dem_max

Дата 27.1.2009, 07:12 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1780
Регистрация: 12.4.2007

Репутация: 14
Всего: 39

Попробуй переделать этот код

Код


#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
   : TForm(Owner)
{
    Application->HintPause = 0;
    Application->HintShortPause = 0;
    Application->HintHidePause = 10000000000;
    Application->OnShowHint = Form1->DoShowHint;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::DoShowHint(System::AnsiString &HintStr, bool &CanShow, THintInfo &HintInfo)
{
  CanShow = true;
  if (HintInfo.HintControl == ListBox1 )
  {
         if( Mouse->Capture )
        {
            CanShow = false;
            return;
        }
     HintInfo.ReshowTimeout = 100;
     HintInfo.HintColor = clAqua;// Changes only for this hint*/

     TPoint pnt;
     SIZE strsize;
     int numstr = ListBox1->ItemAtPos(HintInfo.CursorPos,true);
     if(numstr<0)
     {
      CanShow = false;
      Application->HideHint ();
      return;
     }
     HintStr = ListBox1->Items->Strings[numstr];
     strsize = ListBox1->Canvas->TextExtent(HintStr);
     if(strsize.cx<=ListBox1->ClientWidth)
     {
      CanShow = false;
      Application->HideHint ();
      return;
     }
     pnt.x = -1;
     pnt.y =
int(HintInfo.CursorPos.y/ListBox1->ItemHeight)*ListBox1->ItemHeight - 3;
     pnt = ListBox1->ClientToScreen(pnt);
     HintInfo.HintPos.x = pnt.x;
     HintInfo.HintPos.y = pnt.y;
     HintInfo.HintMaxWidth = Screen->Width-pnt.x;
     /*HintInfo.HideTimeout = 100;*/
  }
}
//---------------------------------------------------------------------------

--------------------

Американские программисты долго не могли понять, почему русские при зависании Windоws всё время повторяют "Твой зайка написал" ("Yоur bunnу wrоte")

Comm

Дата 27.1.2009, 08:02 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 269
Регистрация: 31.8.2007
Где: Санкт-Петербург

Репутация: 2
Всего: 1

О спасибо попробую smile

--------------------

=)))))

sergey_85

Дата 27.1.2009, 13:20 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 445
Регистрация: 17.4.2007
Где: Россия, Челябинск

Репутация: 1
Всего: 1

Попробуй вот так

Код


/увеличить длину списка combobox
//---------------------------------------------------------------------------
void __fastcall TForm::cbComboBoxDropDown(
      TObject *Sender)
{
    SendMessage(cbComboBox->Handle,CB_SETDROPPEDWIDTH, [здесь длина списка, например 300], 0);
}

--------------------

A good design always pays off.

Comm

Дата 27.1.2009, 19:32 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 269
Регистрация: 31.8.2007
Где: Санкт-Петербург

Репутация: 2
Всего: 1

Цитата

/увеличить длину списка combobox
//---------------------------------------------------------------------------
void __fastcall TForm::cbComboBoxDropDown(
TObject *Sender)
{
SendMessage(cbComboBox->Handle,CB_SETDROPPEDWIDTH, [здесь длина списка, например 300], 0);
}

Отлично,спасибо.... вот теперь как бы сделать так,что бы список изменял размер не в право а в лево....а то уходит за края экрана

--------------------

=)))))

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| C++ Builder \| Следующая тема »