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

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

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

Как заставить появиться Popup меню при нажатии левой кнопки мыши? [D7, XP]

Patrashitel © (2008-06-11 16:33:00)
Подскажите плз.

Тын-Дын (2008-06-12 02:11:00) [1]

> Германн © (12.06.08 01:59) [14]

Не надо нести бред, пожалуйста?
Буквоеды - go away. begreifen?

Тын-Дын (2008-06-12 02:08:00) [2]

> P.S. "было бы" - пишется раздельно. Без тире и дефисов.

PS. Из постинга [12]:
"контекстное" - не имеет согласованного подлежащего. Вот так-то.

Германн (2008-06-12 01:59:00) [3]

> Тын-Дын © (12.06.08 01:48) [13]
>
>

А я не говорил про совесть. Но за "PopupMenu" ты ещё, возможно, ответишь!

P.S. "было бы" - пишется раздельно. Без тире и дефисов.

Тын-Дын (2008-06-12 01:48:00) [4]

> Германн © (12.06.08 00:41) [12]
> > TUserClass (11.06.08 16:38) [3]> Тын-Дын © (11.06.
> 08 23:06) [11]Вообще-то PopupMenu, как правило, контекстное.
> Так что Патрашитель вполне возможно вас ещё попотрошит.
> :)

Это уже на совести автора. -)
Нужно было-бы контекстное - так бы и сказал.

Германн (2008-06-12 00:41:00) [5]

> TUserClass (11.06.08 16:38) [3]

> Тын-Дын © (11.06.08 23:06) [11]

Вообще-то PopupMenu, как правило, контекстное. Так что Патрашитель вполне возможно вас ещё попотрошит. :)

Тын-Дын (2008-06-11 23:06:00) [6]
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); var p: TPoint; begin p := ClientToScreen(Point(X,Y)); PopupMenu1.Popup(p.X,p.Y); end;

Тын-Дын (2008-06-11 22:48:00) [7]

> TUserClass (11.06.08 16:51) [9]
> > Поросенок Винни-Пух © (11.06.08 16:46) [8] Мда....ты
> праф.... :)

Фигня. Главное, что автору дано направление.
А всякие батоны с попами пусть поросята лопают.

TUserClass (2008-06-11 16:51:00) [8]

> Поросенок Винни-Пух © (11.06.08 16:46) [8]

Мда....ты праф.... :)

Поросенок Винни-Пух (2008-06-11 16:46:00) [9]
Неа. У тебя попап появляется не при нажатии левой кнопки а при её отпускании

Patrashitel (2008-06-11 16:45:00) [10]

> TUserClass (11.06.08 16:38) [3]

Спасибо, то что надо ...

TUserClass (2008-06-11 16:45:00) [11]

> Поросенок Винни-Пух © (11.06.08 16:40) [4]

Если б я написал, например, Image1 вместо Button1, тебя бы это усроило? ... Просто для примера....

Поросенок Винни-Пух (2008-06-11 16:42:00) [12]
type TMouseEvent = procedure (Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer) of object;

Поросенок Винни-Пух (2008-06-11 16:40:00) [13]
И при чем здесь батон1

Patrashitel (2008-06-11 16:38:00) [14]

> popup

:-|

TUserClass (2008-06-11 16:38:00) [15]
procedure TForm1.Button1Click(Sender: TObject); var MousePos : TPoint; begin GetCursorPos (MousePos); PopupMenu1.Popup(MousePos.X, MousePos.Y); end;

Поросенок Винни-Пух (2008-06-11 16:35:00) [16]
popup

Наверх

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