TcxGridPopupMenu 中自定义菜单

procedure TFrm_SingleGrid.GridCustomPopupMenu(aGridPopup: TcxGridPopupMenu);
var
AMenu: TComponent;
FMenuItem, FSubMenuItem: TMenuItem;
begin
if aGridPopup.BuiltInPopupMenus.Count = 0 then Exit;
AMenu := aGridPopup.BuiltInPopupMenus[0].PopupMenu;
if Assigned(AMenu) and AMenu.InheritsFrom(TPopupMenu) then
begin
//表头位置
FMenuItem := TMenuItem.Create(Self);
FMenuItem.Name := 'miHeaderAlignment';
FMenuItem.Caption := '表头位置';

FSubMenuItem := TMenuItem.Create(Self);
FSubMenuItem.Name := 'miHeaderAlignmentLeft';
FSubMenuItem.Caption := '靠左';
FSubMenuItem.RadioItem := True;
FSubMenuItem.GroupIndex := 5; //指定同一组
//FSubMenuItem.Checked := True;
FSubMenuItem.OnClick := miHeaderAlignmentClick;
FMenuItem.Add(FSubMenuItem); //加入二级子菜单

FSubMenuItem := TMenuItem.Create(Self);
FSubMenuItem.Name := 'miHeaderAlignmentCenter';
FSubMenuItem.Caption := '居中';
FSubMenuItem.RadioItem := True;
FSubMenuItem.GroupIndex := 5;
FSubMenuItem.OnClick := miHeaderAlignmentClick;
FMenuItem.Add(FSubMenuItem);
TPopupMenu(AMenu).Items.Add(FMenuItem);

FSubMenuItem := TMenuItem.Create(Self);
FSubMenuItem.Name := 'miHeaderAlignmentRight';
FSubMenuItem.Caption := '靠右';
FSubMenuItem.RadioItem := True;
FSubMenuItem.GroupIndex := 5;
FSubMenuItem.OnClick := miHeaderAlignmentClick;
FMenuItem.Add(FSubMenuItem);

//表格位置
FMenuItem := TMenuItem.Create(Self);
FMenuItem.Name := 'miRowAlignment';
FMenuItem.Caption := '表格位置';

FSubMenuItem := TMenuItem.Create(Self);
FSubMenuItem.Name := 'miRowAlignmentLeft';
FSubMenuItem.Caption := '靠左';
FSubMenuItem.RadioItem := True;
FSubMenuItem.GroupIndex := 5; //指定同一组
//FSubMenuItem.Checked := True;
FSubMenuItem.OnClick := miRowAlignmentClick;
FMenuItem.Add(FSubMenuItem); //加入二级子菜单

FSubMenuItem := TMenuItem.Create(Self);
FSubMenuItem.Name := 'miRowAlignmentCenter';
FSubMenuItem.Caption := '居中';
FSubMenuItem.RadioItem := True;
FSubMenuItem.GroupIndex := 5;
FSubMenuItem.OnClick := miRowAlignmentClick;
FMenuItem.Add(FSubMenuItem);
TPopupMenu(AMenu).Items.Add(FMenuItem);

FSubMenuItem := TMenuItem.Create(Self);
FSubMenuItem.Name := 'miRowAlignmentRight';
FSubMenuItem.Caption := '靠右';
FSubMenuItem.RadioItem := True;
FSubMenuItem.GroupIndex := 5;
FSubMenuItem.OnClick := miRowAlignmentClick;
FMenuItem.Add(FSubMenuItem);
//导出
FMenuItem := TMenuItem.Create(Self);
FMenuItem.Name := 'miExport';
FMenuItem.Caption := '导出';
FMenuItem.OnClick := Self.miExportClick;
TPopupMenu(AMenu).Items.Add(FMenuItem);

//打印
FMenuItem := TMenuItem.Create(Self);
FMenuItem.Name := 'miPrint';
FMenuItem.Caption := '打印';
FMenuItem.OnClick := Self.miPrintClick;
TPopupMenu(AMenu).Items.Add(FMenuItem);
//布局
FMenuItem := TMenuItem.Create(Self);
FMenuItem.Name := 'miSaveLayout';
FMenuItem.Caption := '保存布局';
FMenuItem.OnClick := Self.miSaveLayoutClick;
TPopupMenu(AMenu).Items.Add(FMenuItem);
end;
end;

//cxgrid Header标题 居左、居中、居右
procedure TFrm_SingleGrid.miHeaderAlignmentClick(Sender: TObject);
var
AHitTest: TcxCustomGridHitTest;
begin
AHitTest := cxgrdpmn_Main.HitTest;
if GetHitTypeByHitCode(AHitTest.HitTestCode) = gvhtColumnHeader then
begin
if TMenuItem(Sender).Name = 'miHeaderAlignmentLeft' then
TcxGridColumnHeaderHitTest(AHitTest).Column.HeaderAlignmentHorz := taLeftJustify;
if TMenuItem(Sender).Name = 'miHeaderAlignmentRight' then
TcxGridColumnHeaderHitTest(AHitTest).Column.HeaderAlignmentHorz := taRightJustify;
if TMenuItem(Sender).Name = 'miHeaderAlignmentCenter' then
TcxGridColumnHeaderHitTest(AHitTest).Column.HeaderAlignmentHorz := taCenter;
end;
end;
//cxgrid 行数据  居左、居中、居右
procedure TFrm_SingleGrid.miRowAlignmentClick(Sender :TObject);
var
AHitTest: TcxCustomGridHitTest;
begin
AHitTest := cxgrdpmn_Main.HitTest;
if GetHitTypeByHitCode(AHitTest.HitTestCode) = gvhtColumnHeader then
begin
if TMenuItem(Sender).Name = 'miRowAlignmentLeft' then
TcxCustomGridColumnHitTest(AHitTest).Column.GetProperties.Alignment.Horz := taLeftJustify;
if TMenuItem(Sender).Name = 'miRowAlignmentRight' then
TcxCustomGridColumnHitTest(AHitTest).Column.GetProperties.Alignment.Horz := taRightJustify;
if TMenuItem(Sender).Name = 'miRowAlignmentCenter' then
TcxCustomGridColumnHitTest(AHitTest).Column.GetProperties.Alignment.Horz := taCenter;
end;

end;
// cxgrid 导出功能
procedure TFrm_SingleGrid.miExportClick(Sender: TObject);
var
FileName: String;
begin
dlgSave.Filter := '*.xls|*.xls|*.xml|*.xml|*.txt|*.txt|*.html|*.html';
dlgSave.Title := '导出为';
if not dlgSave.Execute then Exit;
FileName := dlgSave.FileName;
case dlgSave.FilterIndex of
1 : ExportGridToExcel(FileName, cxgrd_Main);
2 : ExportGridToXML(FileName, cxgrd_Main);
3 : ExportGridToText(FileName, cxgrd_Main);
4 : ExportGridToHTML(FileName, cxgrd_Main);
end;

TPublicClass.ShowDialog('导出完成...');

end;