BDS 2006에서 수행하고있는 내 응용 프로그램의 편집 상자에서 마우스 오른쪽 버튼을 누르지 않으려합니다. 나는 그것에 대해 봤는데 나는 다음과 같은 코드를 발견했습니다.편집 상자에서 마우스 오른쪽 버튼 클릭을 피하십시오.
이 양식은 활성화됩니다.
for i := 0 to Self.ControlCount-1 do
begin
if Self.Controls[i].ClassName = 'TEdit' then
begin
noPopUp := TPopupMenu.create(Self.Controls[i]);
TEdit(Self.Controls[i]).PopupMenu := noPopup;
end;
end;
이 누구의 부모 양식입니다 편집 상자에 잘 작동, 그것은 EDIT1에 대한 잘 작동하지만이 많은 편집 상자는 양식에있는 그래서 난 루프에 대한 썼다. 그러나 그룹 상자 또는 패널에 편집 상자가있는 경우이 패널과 그룹 상자는 차례로 양식의 하위 항목입니다.
내 질문은 부모가 양식이 아닐 때 편집 상자에서 마우스 오른쪽 버튼을 클릭하지 않도록 설정하는 방법입니다.
편집 당 팝업을 만들 필요가 없으며 동일한 팝업을 여러 편집 컨트롤에 지정할 수 있습니다. 어떤 경우 든 빈 팝업을 사용하는 대신 OnContextPopup에 대한 이벤트 핸들러를 설정하고 'Handled'매개 변수를 'True'로 설정하는 것이 좋습니다. –