Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > ComboBox

Автор: ADanilov 8.9.2004, 15:00

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

Автор: _hunter 8.9.2004, 15:02

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

Автор: Гость_guest 8.9.2004, 15:24

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

Автор: Pakshin A. S. 8.9.2004, 19:31

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

Цитата

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

И ещё:

Цитата

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;