Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Позиция Popupmenu. Как привязать к нижнему левому углу. [D6, WinME, Win2k, WinXP]

SergP. © (2005-12-03 15:24:00)
Имеется попапменю, которое появляется при нажатии на кнопку.

procedure TFrmMain.BtnMenuClick(Sender: TObject); var foo: TPoint; begin foo.X:=BtnMenu.Left; foo.Y:=BtnMenu.Top; foo:=ClientToScreen(foo); Pmmain.Popup(foo.x,foo.y); end;

получается что я позиция привязана к верхнему левому углу..
Как можно привязать к нижнему левому?

Sergp. (2005-12-03 21:01:00) [1]

> Zeqfreed © (03.12.05 20:30) [9]
>
> Zeqfreed © (03.12.05 20:18) [6]
> Мои сведения были устаревшими :)
> Согласно MSDN ( http://msdn.microsoft.com/library/default.
> asp?url=/library/en-us/winui/winui/windowsuserinterface/resources/menus/menur
> eference/menufunctions/trackpopupmenu.asp) поддерживается
> флаг TPM_BOTTOMALIGN для ф-ции TrackPopupMenu, позволяющий
> открывать меню вверх, относительно указанной y координаты.
> В справке Delphi, к сожалению, такого не найти, хотя константа
> прописана в Windows.pas.

Не проверял. Но ИМХО это то что мне нужно. Проверю сейчас. Большоет спасибо.

Zeqfreed (2005-12-03 20:30:00) [2]
Zeqfreed © (03.12.05 20:18) [6]
Мои сведения были устаревшими :)
Согласно MSDN ( http://msdn.microsoft.com/library/default.asp?url=/library/en-us/winui/winui/windowsuserinterface/resources/menus/menureference/menufunctions/trackpopupmenu.asp) поддерживается флаг TPM_BOTTOMALIGN для ф-ции TrackPopupMenu, позволяющий открывать меню вверх, относительно указанной y координаты. В справке Delphi, к сожалению, такого не найти, хотя константа прописана в Windows.pas.

Sergp. (2005-12-03 20:28:00) [3]
Если меню не влазит в экран, то пусть оно рнасполагается как может. Но если влазит, то пусть располагается как я хочу - т.е. пусть привязывается в нижнему левому углу.

begin...end (2005-12-03 20:27:00) [4]
Вызвать TrackPopupMenu с флагом TPM_BOTTOMALIGN. Возрадоваться.

Zeqfreed (2005-12-03 20:18:00) [5]
Sergp. (03.12.05 20:12) [5]
Контекстное меню "вылазит" туда, куда оно поместится, отдавая предпочтение направлению вниз. Вы хотите самостоятельно обрабатывать ситуации, когда при открытии его вверх оно будет выходить за пределы экрана, или эта ситуации допустима в вашей задаче? Ну, в таком случае, могу предложить писать свой аналог меню или просчитывать позицию меню в зависимости от его высоты.

Sergp. (2005-12-03 20:12:00) [6]

> <Цитата>
>
>
>
> Zeqfreed © (03.12.05 20:08) [4]
>
> begin...end © (03.12.05 20:04) [3]
> Думаю, что автор хочет, чтобы меню открывалось не "сверху-
> слева вниз", а "снизу-слева вверх" :)

Да. Именно так. Чтобы в
procedure TFrmMain.BtnMenuClick(Sender: TObject);
var
foo: TPoint;
begin
foo.X:=BtnMenu.Left;
foo.Y:=BtnMenu.Top;
foo:=ClientToScreen(foo);
Pmmain.Popup(foo.x,foo.y);
end;

попапменю вылазило выше кнопки

Zeqfreed (2005-12-03 20:08:00) [7]
begin...end © (03.12.05 20:04) [3]
Думаю, что автор хочет, чтобы меню открывалось не "сверху-слева вниз", а "снизу-слева вверх" :)

begin...end (2005-12-03 20:04:00) [8]
> SergP. (03.12.05 20:02) [2]

Позицию PopupMenu нужно привязать к нижнему левому углу PopupMenu? Это как?

SergP. (2005-12-03 20:02:00) [9]

> BtnMenu.Top+BtnMenu.Heigth;

Неа. во первых минус а не плюс, а во вторых нужно к нижнему левому углу попапменю а не кнопки

malenkii_myk (2005-12-03 16:13:00) [10]
BtnMenu.Top+BtnMenu.Heigth;

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »