Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Как создать меню / 2 сообщений из 2, страница 1 из 1
28.08.2001, 05:31
    #32012961
ivan
ivan
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как создать меню
Люди кто знает как сделать менюшку внизу, наподобие виндового "ПУСКа"
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
09.08.2003, 07:57
    #32231782
NightSpider
NightSpider
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как создать меню
Может не самый лучший вариант, но можно сделать так:

Код: plaintext
1.
2.
3.
4.
5.
 procedure  TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
 begin 
PopupMenu1.Popup(Form1.Left+Button1.Left,Form1.Top+ Button1.Top- 120 );
 //120 - высота самого меню 
 end ;

PopupMenu1 создается отдельно.

Модератор: Пользуйтесь тегом (кнопкой) SRC для оформления кода, пожалуйста.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Как создать меню / 2 сообщений из 2, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]