VPF::ComboBox - Форум программистов

ADanilov

Дата 8.9.2004, 15:00 (ссылка)

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

Загрузка ...

Новичок

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

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

Я меня есть combobox в нем надпись большой длины при раскрытии combobox эта надпись видна не полностью. Есть ли способы сделать, чтобы надпись былы видна полностью.

_hunter

Дата 8.9.2004, 15:02 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

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

натпись каким компонентом выводиш?

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

Tempora mutantur, et nos mutamur in illis...

Гость_guest

Дата 8.9.2004, 15:24 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

готовыи алгоритм поищи на http://forum.sources.ru/ (сеичас отключен ото дал бы точную ссылку)

Pakshin A. S.

Дата 8.9.2004, 19:31 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

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

Вот, что надыбал (извините за опечатки, т. к. голова не очень-то варит):

Цитата

Hint в выпадающем списке ComboBox

В приктике программирования довольно часто встречаются читуации, когда информация, предназначенная для отображения в имеющемся компоненте, не помещается по длине. Обычно это имеет место при работе с базами данных. В таких случаях выручает всплывающие подсказки (свойство Hint). Но в некоторых случаях даже таккая возможность не спасает. К таким ситуациям можно отнести работу с выпадающим списком в DBComboBox.

Представьте, что размер поля увеличился, а изменить ширину DBComboBox на форме, по тем или иным причинам, нет возможности. Конечно, можно увеличить ширину выпадающего списка Но выглядит это не всегда красива, да и не делает чести разработчику.

В демонстрационном примере в выпадающем списке появляется вспоывающая подсказка для стрки, не помещающейся по длине.

При работе с Hint нужно помнить, что попытки использования ToolTip из API - бесполезная затея, т. к. Delphi их игнорирует. Для этих целей в Delphi предусмотрен класс THintWindow.

В своем компоненте объявите FHint:

Код


type
  TVSComboBox = class (TCustomComboBox)
  ...
   private
     FHint: THintWindow;
  ...
   protected
     procedure WMCTLCOLORLISTBOX(var Message: TMessage); message WM_CTLCOLORLISTBOX;
  ...

и не забудьте выполнить инициализацию компонента в конструкторе:

Код


...
begin
  inherited Create(AOwner);
  FHint:=THintWindow.Create(Self);
...

Чтобы получить информацию об активной строке в выпадающем списке ComboBox, перехватите сообщение WM_CTLCOLORLISTBOX. В процедуре сообщения проанализируйте строку и, если ее длина больше ширины выпадающего списка, передайте "длинную" строку в FHint и активизируйте его:

Код


FHint.ActivateHint(TextRC, Items[ItemIndex]);

где
TextRC - прямоугольник для строки подсказки;
Items[ItemIndex] - "длинная" строка из списка.

Если активная строка в выпадающем списке "короткая - спрячьте FHint:

Код


FHint.ReleaseHandle;

Для получения более подробной информации о классе THintWindow обратитесь к справке Delphi.

Pakshin A. S.

Дата 8.9.2004, 20:10 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

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

И ещё:

Цитата

resize the width of the drop-down list of a TComboBox?

Autor: Thomas Stutz

Код


procedure TForm1.Button1Click(Sender: TObject); 
const 
  PIXEL_WIDTH = 200; 
begin 
  ComboBox1.Perform(CB_SETDROPPEDWIDTH, PIXEL_WIDTH, 0); 
end; 


{With this Code, the drop-down list will automatically be sized to the longest string.} 

procedure TForm1.Button2Click(Sender: TObject); 
var 
  i, ItemWidth: Integer; 
begin 
  ItemWidth := 0; 
  with Combobox1 do 
  begin 
    for i := 0 to Items.Count - 1 do 
      if (Form1.Canvas.TextWidth(Items[i]) <> ItemWidth) then 
        ItemWidth := Form1.Canvas.TextWidth((Items[i])) + 20; 
    Perform(CB_SETDROPPEDWIDTH, ItemWidth, 0); 
  end; 
end;

Это сообщение отредактировал(а) Pakshin A. S. - 8.9.2004, 20:11

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