Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.05.16;
Скачать: CL | DM;

Вниз

Создать меню   Найти похожие ветки 

 
MisterBin ©   (2002-04-30 07:58) [0]

Как мне сделать всплывающее меню при клике на кнопку. Как у Winamp"a. И чтобы в пунктах меню были названия папок, например из дирректории C:\Program Files?


 
gek ©   (2002-04-30 08:15) [1]


procedure TForm_our.ToolButn_ourClick(Sender: TObject);
var
T:TPoint;
begin
t.x:=ToolButton10.Left - 2;
t.y:=RxDBGrid1.Top;
t:=ClientToScreen(t);
PopupMenu1.Popup(t.X, t.Y);
end;

AutoPopUp установить в false



 
Alx2 ©   (2002-04-30 08:15) [2]

"Вручную" показать меню - см. метод popup.
Также в это меню можно вручную добавить пункты.
Вот пример "ручного" создания меню, который добавляет в контекстное меню пункты, название каждого из которых совпадает с названием соотв. столбца компонента RxDBGrid1 и которые отмечены, если этот столбец видимый. при выборе пункта меню срабатывает метод ColumnPopupMenuItemClick

For K := 0 To RxDBGrid1.Columns.Count - 1 Do
Begin
mi := TMenuItem.Create(Self);
mi.CAPTION := RxDBGrid1.Columns[K].Field.DisplayLabel;
mi.checked := RxDBGrid1.Columns[K].Visible;
mi.Tag := K;
mi.OnClick := ColumnPopupMenuItemClick;
ColumnPopupMenu.Items.Add(mi); // Добавляем созданный пункт.
End;

Как получить смписок папок - см. FAQ



Страницы: 1 вся ветка

Текущий архив: 2002.05.16;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.011 c
4-50160
Дмитрий2
2002-03-14 10:18
2002.05.16
Отладка COM-серверов


1-49901
Феликс
2002-04-28 16:59
2002.05.16
Как сделать в Listbox первую строку определенным цветом?


3-49823
Awex
2002-04-18 13:44
2002.05.16
Получение списка юзеров IB Server a


1-49967
Финик
2002-04-24 20:33
2002.05.16
как при создании листа Excel задать числовой формат ячейки


1-49913
snoup
2002-04-29 00:15
2002.05.16
Помогите пожалуйста, например я где-то в блокноте или в офисе пиш