delphi TStringGrid 및 오른쪽 마우스 버튼

Delphi 10.1 Berlin을 사용하여 다중 장치 응용 프로그램을 만듭니다. 나는 쿼리의 일부 데이터를 나열하기 위해 TStringGrid을 가지고있다.delphi TStringGrid 및 오른쪽 마우스 버튼

또한 팝업 메뉴 (편집, 삭제, ...)가 있지만 항목을 편집/삭제하려면 마우스 왼쪽 버튼을 사용하여 셀을 클릭해야합니다.

팝업 메뉴를 표시하기 전에 오른쪽 버튼을 사용하여 "행 선택"이 가능합니까?

procedure TForm1.StringGrid1MouseDown(Sender: TObject; Button: TMouseButton; 
    Shift: TShiftState; X, Y: Integer); 
begin 
    if Button = mbRight then 
    StringGrid1.Perform(WM_LBUTTONDOWN, 0, MakeLParam(Word(X), Word(Y))); 
end;

을하지만 mbRight과 Perform()에 오류를 표시합니다

나는 시도했다.

procedure TForm39.StringGrid1MouseDown(Sender: TObject; Button: TMouseButton; 
    Shift: TShiftState; X, Y: single); 
var 
    pf: TPointF; 
begin 
    if Button = TMouseButton.mbRight then 
    begin 
    with Sender as TStringGrid do 
     SelectRow(RowByPoint(X, Y)); 
    // Do not use the grids PopupMenu property, it seems it 
    // prevents this event handler comletely. 
    // Instead, activate the menu manually here. 
    pf := ClientToScreen(TPointF.Create(X, Y)); 
    PopupMenu1.Popup(pf.X, pf.Y); 
    end; 
end;

FireMonkey이 활성화 Scoped Enumerations 컴파일되므로 mbRight 버튼으로 문제가 열거 형 (TMouseButton.mbRight)로 값을 접두사에 의해 해결된다 :

출처

2017-09-27 Rube

"멀티 장치 응용 프로그램"도 추가되었습니다. 항상 FMX 어플리케이션을위한'firemonkey' 태그를 추가하십시오. –

'OnMouseDown' 이벤트를 어떻게 추가 했습니까? FMX'TStringGrid'는 그러한 이벤트를 노출하지 않습니다. –

[편도] (https://pastebin.com/BbTG6pAB). – Victoria

는 다음과 같은 코드를 사용할 수 있습니다.

출처

2017-09-27 14:03:41

와우! 그것은 작동합니다! PopupMenu1.Popup (pf.X, pf.Y)을 수정합니다. PopupMenu1.Popup (pf.X, pf.Y + 70); 팝업 커서를 마우스 커서 가까이에두기 위해서! 고맙습니다. @tom – Rube

감사합니다. @Rube, 기꺼이 도와 드리겠습니다. –

delphi TStringGrid 및 오른쪽 마우스 버튼

답변

관련 문제