Текущий архив: 2008.07.13;
Скачать: CL | DM;
Вниз
Как заставить появиться Popup меню при нажатии левой кнопки мыши? Найти похожие ветки
← →
Patrashitel (2008-06-11 16:33) [0]Подскажите плз.
← →
Поросенок Винни-Пух © (2008-06-11 16:35) [1]popup
← →
Patrashitel (2008-06-11 16:38) [2]
> popup
:-|
← →
TUserClass (2008-06-11 16:38) [3]
procedure TForm1.Button1Click(Sender: TObject);
var
MousePos : TPoint;
begin
GetCursorPos (MousePos);
PopupMenu1.Popup(MousePos.X, MousePos.Y);
end;
← →
Поросенок Винни-Пух © (2008-06-11 16:40) [4]И при чем здесь батон1
← →
Поросенок Винни-Пух © (2008-06-11 16:42) [5]type TMouseEvent = procedure (Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer) of object;
← →
Patrashitel (2008-06-11 16:45) [6]
> TUserClass (11.06.08 16:38) [3]
Спасибо, то что надо ...
← →
TUserClass (2008-06-11 16:45) [7]
> Поросенок Винни-Пух © (11.06.08 16:40) [4]
Если б я написал, например, Image1 вместо Button1, тебя бы это усроило? ... Просто для примера....
← →
Поросенок Винни-Пух © (2008-06-11 16:46) [8]Неа. У тебя попап появляется не при нажатии левой кнопки а при её отпускании
← →
TUserClass (2008-06-11 16:51) [9]
> Поросенок Винни-Пух © (11.06.08 16:46) [8]
Мда....ты праф.... :)
← →
Тын-Дын © (2008-06-11 22:48) [10]
> TUserClass (11.06.08 16:51) [9]
> > Поросенок Винни-Пух © (11.06.08 16:46) [8] Мда....ты
> праф.... :)
Фигня. Главное, что автору дано направление.
А всякие батоны с попами пусть поросята лопают.
← →
Тын-Дын © (2008-06-11 23:06) [11]
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-12 00:41) [12]
> TUserClass (11.06.08 16:38) [3]
> Тын-Дын © (11.06.08 23:06) [11]
Вообще-то PopupMenu, как правило, контекстное. Так что Патрашитель вполне возможно вас ещё попотрошит. :)
← →
Тын-Дын © (2008-06-12 01:48) [13]
> Германн © (12.06.08 00:41) [12]
> > TUserClass (11.06.08 16:38) [3]> Тын-Дын © (11.06.
> 08 23:06) [11]Вообще-то PopupMenu, как правило, контекстное.
> Так что Патрашитель вполне возможно вас ещё попотрошит.
> :)
Это уже на совести автора. -)
Нужно было-бы контекстное - так бы и сказал.
← →
Германн © (2008-06-12 01:59) [14]
> Тын-Дын © (12.06.08 01:48) [13]
>
>
А я не говорил про совесть. Но за "PopupMenu" ты ещё, возможно, ответишь!
P.S. "было бы" - пишется раздельно. Без тире и дефисов.
← →
Тын-Дын © (2008-06-12 02:08) [15]
> P.S. "было бы" - пишется раздельно. Без тире и дефисов.
PS. Из постинга [12]:
"контекстное" - не имеет согласованного подлежащего. Вот так-то.
← →
Тын-Дын © (2008-06-12 02:11) [16]
> Германн © (12.06.08 01:59) [14]
Не надо нести бред, пожалуйста?
Буквоеды - go away. begreifen?
Страницы: 1 вся ветка
Текущий архив: 2008.07.13;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.007 c
