VPF::Работа с комбобоксом - Форум программистов

ADAM83

Дата 18.4.2006, 08:05 (ссылка)

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

Загрузка ...

Шустрый

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

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

Здравстуйте эксперты.
У меня такой вопрос:
как показать длинные записи комбо в виде хинта?
А вот отрисовывать канву я не всиле (новичок я).
Спасибо заранее

ADAM83

Дата 18.4.2006, 08:44 (ссылка)

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

Загрузка ...

Шустрый

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

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

Кому интересно, нашел где на сайтах такой код, и мне этот код подошел

Код


uses
      HSHintComboBox;
...
private
    { Private declarations }
    FHSHintComboBox : THSHintComboBox;
...
procedure TForm1.FormCreate(Sender: TObject);
begin
  FHSHintComboBox:=THSHintComboBox.Create(self);
  FHSHintComboBox.Parent:= Self;
  FHSHintComboBox.Items.Assign(ComboBox1.Items);
  FHSHintComboBox.BoundsRect:= ComboBox1.BoundsRect;
  //if NOT (ComboBox1.Style in [csDropDown, csDropDownList]) then
    //  raise Exception.Create (
      // 'HSHintComboBox поддерживает стиль только csDropDown и csDropDownList');
  FHSHintComboBox.Style := ComboBox1.Style;
  FHSHintComboBox.DropDownCount := ComboBox1.DropDownCount;
  FHSHintComboBox.TabOrder := ComboBox1.TabOrder;
  FHSHintComboBox.TabStop := ComboBox1.TabStop;
    //OnListMouseMove := HSHintComboBoxListMouseMove;
  //ComboBox1.Free();
end;

~FoX~

Дата 18.4.2006, 08:49 (ссылка)

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

Загрузка ...

НЕ рыжий!!!

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

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

http://vingrad.ru/DELPHI-DLP-002344

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

…множественность никогда не следует полагать без необходимости…

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