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

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

Форум программистов > Delphi: Для новичков > Кнопка с раскрывающимся списком.

Автор: Алкоголик 25.3.2009, 23:04

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

Код


Combobox1.DroppedDown:=true;

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

Автор: pseud 26.3.2009, 10:37

делай раз

:
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

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