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

hug

Дата 14.9.2007, 19:30 (ссылка)

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

Загрузка ...

Шустрый

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

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

Добрый день, кто-нибудь реализовал раскрытие комбо вверх?
как подойти к этому вопросу?

Rrader

Дата 16.9.2007, 08:22 (ссылка)

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

Загрузка ...

Inspired =)

Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

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

Вот накидал компонентик:

Код


TExtCombo = Class(TComboBox)
Protected
  Procedure WndProc(Var Msg: TMessage); Override;
End;

{ TExtCombo }

Procedure TExtCombo.WndProc(Var Msg: TMessage);
Var
  Info: TComboBoxInfo;
  R: TRect;
  W: Integer;
Begin
  Case Msg.Msg Of
    WM_LBUTTONDOWN:
      Begin
        Msg.Result := 0;
        Info.cbSize := SizeOf(TComboBoxInfo);
        GetComboBoxInfo(Self.Handle, Info);
        SendMessage(Self.Handle, CB_SHOWDROPDOWN, 1, 0);
        GetWindowRect(Info.hwndList, R);
        { Height Of List }
        W := R.Bottom - R.Top;
        GetWindowRect(Self.Handle, R);
        { New Position }
        SetWindowPos(Info.hwndList, 0, R.Left, R.Top - W,
          Self.Width, W, 0);
        Exit;
      End;
  End;
  Inherited WndProc(Msg);
End;

Добавлено через 1 минуту и 41 секунду
Либо делай сабклассинг TComboBox

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

Let's do this quickly!
Rest in peace, Vit!

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