Выпадающее меню для TButton
Я пытаюсь смоделировать выпадающее меню для TButton, как показано ниже:
procedure DropMenuDown(Control: TControl; PopupMenu: TPopupMenu);
var
APoint: TPoint;
begin
APoint := Control.ClientToScreen(Point(0, Control.ClientHeight));
PopupMenu.Popup(APoint.X, APoint.Y);
end;
procedure TForm1.Button1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if Button = mbLeft then
begin
DropMenuDown(Button1, PopupMenu1);
// ReleaseCapture;
end;
end;
Проблема в том, что когда выпадающее меню выпадает, при повторном нажатии на кнопку я хочу закрыть меню, но вместо этого оно снова опускается.
Я ищу решениеspecifically для универсального DelphiTButton
не любой сторонний эквивалент.