Popup - Общие вопросы Delphi

DeDoK · 06.06.2009, 12:38

Ребята как сделать такой PopUp как на картинке по нажатию ЛЕВОЙ кнопки на кнопку "Недоступен"
PopUp.JPG

Evgeniy26 · 06.06.2009, 12:47

не так вопрос понял

Ntlegend · 06.06.2009, 12:49

Код:

PopupMenu1.Popup(X, Y);

S@fer · 06.06.2009, 13:11

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
  PopupMenu1.Popup(Mouse.CursorPos.X,Mouse.CursorPos.Y);
end;

Neeter · 06.06.2009, 13:40

Вы не видите что ли, DeDoK хочет чтобы меню показывалось около кнопки слева вверху. В позиции курсора то легко показать. К сожалению, я не знаю как это сделать, только если слева снизу...

S@fer · 06.06.2009, 13:48

Цитата:

меню показывалось около кнопки слева вверху

тогда так

Код:

PopupMenu1.Popup(Mouse.CursorPos.X-PopupMenu1.InstanceSize+50,Mouse.CursorPos.Y-PopupMenu1.InstanceSize+10);

или так

Код:

PopupMenu1.Popup(Round(Button1.Left+Button1.Width*2.6),Round(Button1.Top+Button1.Height*1.8));

Ntlegend · 06.06.2009, 15:03

X-координата кнопки на экране определяется так:
Form1.Left+Button1.Left+4
4 - это ширина бордюра формы
Y-координата сответственно
Form1.Top+Button1.Top+30
30 - это высота "синей полоски" вверху формы..

чтобы менюшка всплыла слева над кнопкой нада так:

Код:

PopupMenu1.Popup(Form1.Left+Button1.Left+4, Form1.Top+Button1.Top+30);

а в верх оно будет открываться тока тогда, когда не будет помещаться целеком вниз..

DeDoK · 06.06.2009, 15:10

всем спасибо за ответ, особенно Ntlegend

06.06.2009, 12:38	#1
DeDoK Форумчанин Регистрация: 05.11.2007 Сообщений: 392	Popup Ребята как сделать такой PopUp как на картинке по нажатию ЛЕВОЙ кнопки на кнопку "Недоступен" PopUp.JPG

06.06.2009, 12:47	#2
Evgeniy26 Форумчанин Регистрация: 29.05.2009 Сообщений: 384	не так вопрос понял Последний раз редактировалось Evgeniy26; 06.06.2009 в 12:56.

06.06.2009, 12:49	#3
Ntlegend Форумчанин Регистрация: 12.05.2007 Сообщений: 373	Код: `PopupMenu1.Popup(X, Y);` Перемен! - требуют наши сердца. Перемен! - требуют наши глаза. В нашем смехе и в наших слезах, И в пульсации вен: "Перемен!Мы ждем перемен!"

06.06.2009, 13:11	#4
S@fer Форумчанин Регистрация: 29.01.2009 Сообщений: 411	Код: `procedure TForm1.Button1Click(Sender: TObject); begin PopupMenu1.Popup(Mouse.CursorPos.X,Mouse.CursorPos.Y); end;`

06.06.2009, 13:40	#5
Neeter Форумчанин Регистрация: 22.02.2009 Сообщений: 875	Вы не видите что ли, DeDoK хочет чтобы меню показывалось около кнопки слева вверху. В позиции курсора то легко показать. К сожалению, я не знаю как это сделать, только если слева снизу... Чтобы обнаруживать ошибки, программист должен иметь ум, которому доставляет удовольствие находить изъяны там, где, казалось, царят красота и совершенство.

06.06.2009, 15:03	#7
Ntlegend Форумчанин Регистрация: 12.05.2007 Сообщений: 373	X-координата кнопки на экране определяется так: Form1.Left+Button1.Left+4 4 - это ширина бордюра формы Y-координата сответственно Form1.Top+Button1.Top+30 30 - это высота "синей полоски" вверху формы.. чтобы менюшка всплыла слева над кнопкой нада так: Код: `PopupMenu1.Popup(Form1.Left+Button1.Left+4, Form1.Top+Button1.Top+30);` а в верх оно будет открываться тока тогда, когда не будет помещаться целеком вниз.. Перемен! - требуют наши сердца. Перемен! - требуют наши глаза. В нашем смехе и в наших слезах, И в пульсации вен: "Перемен!Мы ждем перемен!" Последний раз редактировалось Ntlegend; 06.06.2009 в 15:05.

06.06.2009, 15:10	#8
DeDoK Форумчанин Регистрация: 05.11.2007 Сообщений: 392	всем спасибо за ответ, особенно Ntlegend

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Скрытие PopUp меню	nusik	Общие вопросы Delphi	3	19.05.2009 22:48
Impact PopUp	axeli	Софт	1	28.07.2008 12:02
Popup+dbGrid	s.mag	БД в Delphi	8	15.05.2008 13:32
popup в dbgrid	drakhar	БД в Delphi	7	13.02.2008 08:20
Popup menu	Mitron	Компоненты Delphi	1	02.02.2008 14:26