롤오버 메뉴 용 델파이 XE2 구성 요소

Question

내 응용 프로그램 (델파이 Xe2)에는 '다중 선택'단추가 있습니다 (즉, '내보내기'단추에는 'PDF로 내보내기'및 'XLS로 내보내기'선택 항목이 있음). 버튼 (또는 패널 또는 다른 객체) 위에 마우스를 올려 놓았을 때 나타나는 팝업 메뉴와 같은 메뉴를 가져와야합니다. 이 메뉴는 버튼 바로 아래에 나타나야하며 "VCL Stylable"구성 요소 여야합니다. TPopUpMenu를 시도했지만 숨기기가 편리하지 않습니다. OnEnter 대신 OnClick 이벤트로 메뉴를 표시하는 것을 고려할 수도 있습니다.

Answer 1

TButton의 스타일을 bsSplitButton으로 설정하고 과 함께 버튼 DropDownMenu 속성을 사용할 수 있습니다. 아래 화살표가있는 균열을 클릭하면 메뉴가 아래로 떨어집니다. 비스타 가능하고 이상에만 ..

아래 사용할 수있다와 같은 이전 운영 체제 뭔가 :

procedure TForm1.Button1Click(Sender: TObject); 
var 
    Pt: TPoint; 
begin 
    Pt := ClientToScreen(Point((Sender as TButton).Left, (Sender as TButton).Top)); 
    PopupActionBar1.Popup(Pt.X, Pt.Y + (Sender as TButton).Height); 
end;