[more=Код]
Код: [no]procedure TForm1.cxGridDBBandedTableViewKeyDown(Sender: TObject;
var Key: Word; Shift: TShiftState);
var
R: TRect;
begin
if Key = VK_APPS then
begin
Key := 0;
R := cxGridDBBandedTableView.Controller.FocusedRow.ViewInfo.FocusRectBounds;
R.TopLeft := cxGrid.ClientToScreen(R.TopLeft);
popup1.Popup(R.Left + 100, R.Top + 15); //можно и Bottom для любителей
end;
end;[/no]
Код: [no]procedure TForm1.cxGridDBBandedTableViewKeyDown(Sender: TObject;
var Key: Word; Shift: TShiftState);
var
R: TRect;
begin
if Key = VK_APPS then
begin
Key := 0;
R := cxGridDBBandedTableView.Controller.FocusedRow.ViewInfo.FocusRectBounds;
R.TopLeft := cxGrid.ClientToScreen(R.TopLeft);
popup1.Popup(R.Left + 100, R.Top + 15); //можно и Bottom для любителей
end;
end;[/no]