Как вызвать TPopupMenu на TButton с помощи левой кнопки мыши?

[Bill Gates]

Как вызвать TPopupMenu на TButton с помощи левой кнопки мыши?

[Никки]

ну в процедуре обработки нажатия TButton напиши

Var
        p:tpoint;
begin
        GetCursorPos(p);
        PopupMenu.Popup(p.X,p.Y);

[Alter]

Но ведь есть же программы, где после нажатия на кнопку появляется меню под или над ней(в зависимости как близко к краям экрана она находится) и кнопка остаётся нажатой, до тех пор пока менюшка неисчезнет. Как такое реализовано. Может кто знает про это. Интересно же.

[mihali4]

Сообщение от Alter

Но ведь есть же программы, где после нажатия на кнопку появляется меню под или над ней(в зависимости как близко к краям экрана она находится) и кнопка остаётся нажатой, до тех пор пока менюшка неисчезнет. Как такое реализовано. Может кто знает про это. Интересно же.

Просто использовать нужно SpeedButton, а обработчик ставить на событие OnMouseUp.

[Alter]

Вот так всё время делать ? Может проще есть способ.

procedure TForm1.SpeedButton1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 SpeedButton1.Down := True;
 PopupMenu1.Popup( SpeedButton1.Left + Left + 2,
                   SpeedButton1.Top + 2*SpeedButton1.Height + Top - 2 );
end;

procedure TForm1.N1Click(Sender: TObject);
begin
 SpeedButton1.Down := True;
end;

[mutabor]

Для тулбатона я так делал, думаю подойдет и для обычного.

procedure TForm1.ToolButton1Click(Sender: TObject);
var
  MP: TPoint;
begin
mp.x:=toolbutton1.left;
mp.y:=toolbutton1.top+toolbutton1.height;
PopupMenu1.Popup(ClientToScreen(mp).x,ClientToScreen(mp).y);
end;

P.S. А вообще не, не подойдет. Нужен SpeedButton, делай группу они сами будут нажиматься, у тебя же не одна кнопка?

[Jakero]

А как PopupMenu по правой кнопке в RichEdit вызвать?

[Пепел Феникса]

во первых я вам ответил.
во вторых правила почитайте.(не лезьте в чужую тему)