VPF::Кнопка с раскрывающимся списком.

Алкоголик

Дата 25.3.2009, 23:04 (ссылка)

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

Загрузка ...

Бывалый

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

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

Здраствуйте еще раз)
Подскажите пожалуйста, как сделать кнопку с раскрывающемся списком? т.е. как в программах бывает кнопка, при клике на нее появляется список.
ComboBox не подходит...
Пытался совместить обычную кнопку с комбобоксом, но он при:

Код


Combobox1.DroppedDown:=true;

Появляется весь, а не только список..
Заранее спасибо.

pseud

Дата 26.3.2009, 10:37 (ссылка)

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

Загрузка ...

Экспёрт Тыдыщ

Профиль
Группа: Завсегдатай
Сообщений: 1175
Регистрация: 18.5.2007
Где: Минск, Беларусь

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

делай раз

:
1. кинь на форму Button1 и PopupMenu1
2. наполни PopupMenu1
3. в обработчике нажатия кнопки пиши:

Код


procedure TForm1.Button1Click(Sender: TObject);
var
  p: TPoint;
begin
  p := Button1.ClientOrigin;
//  p.X := p.X + Button1.ClientRect.Right; // смещение к правому борту кнопки
  p.Y := p.Y + Button1.ClientRect.Bottom; // смещение к нижнему борту кнопки
  PopupMenu1.Popup(p.X, p.Y);
end;

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

Испытание чужого терпения можно считать успешным, если оно лопнуло...

Алкоголик

Дата 26.3.2009, 11:32 (ссылка)

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

Загрузка ...

Бывалый

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

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

Спасибо большое))
Сам думал о таком варианте, но не знал как меню к кнопке приставить..

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