动态设置屏幕分辨率
Xe10.2测试可用。function SetScreen(x, y: Word): Boolean; var DevMode: TDeviceMode; begin Result := EnumDisplaySettings(nil, 0, DevMode); if Result then begin DevMode.dmFields := DM...
Delphi Xe 10.2.3 10分钟快速安装包下载
Delphi 10.2.3 快速安装版，10分钟可以安装完delphi 10：下载地址（来自网络）400M大小https://pan.baidu.com/s/1Q6m8RpIBGPT4By_zu6-eAw密码：a1nt
取得当前监视器的分辨率
var MonInfo: TMonitorInfo; begin MonInfo.cbSize := SizeOf(MonInfo); GetMonitorInfo(MonitorFromWindow(Handle, MONITOR_DEFAULTTONEAREST), @MonInfo); ShowMessage(Format('Current resol...
cxGrid 选择行判断选择了多少行
if GridViewList.Controller.SelectedRowCount = 0 then begin ShowMessage('请选择资产'); exit; end; if GridViewList.Controller.SelectedRowCount > 1 then begin ShowMessage('复制记录...
ImageEn 给图片添加水印
//在图像的左下角以30％的不透明度添加水印bmpImg := TIEBitmap.create; bmpWM := TIEBitmap.create; bmpImg.Read('D:\image.jpeg'); bmpWM.Read('D:\Watermark.png'); wmOpacity := 0.30; bmpW...
如何确定cxGrid网格数据的高度
procedure SetGridHeight(AGrid: TcxGrid; ARowsNumber: Integer); var I: Integer; AHeight: Integer; begin if (AGrid = nil) or (AGrid.FocusedView = nil) then Exit; AHeight := 0; with A...
火神中间件服务端：根据账套和SQL 提交保存内存表的改动到数据库
需要引用单元：FireGobalHelp返回数据集：const vSql: string = 'select * from dKeCheng '; Var lDataSet: TFDMemTable; lErrMsg: string; if Gobal_Help.ZTManage.OpenDataFast(lDataSet, 'Er...
更改cxGrid上的行高
procedure <AForm>.<AcxGridTableView>GetCellHeight(Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; ACellViewInfo: TcxGridTab...
获得控件所在的窗体
需要引用单元：Vcl.Formsfunction GetParentForm(Control: TControl; TopForm: Boolean = True): TCustomForm;示例：GetParentForm(Edit1);
ImageEnView 设置图层的默认值
ImageEnView1.LayerDefaults.Clear(); ImageEnView1.LayerDefaults.Add( IELP_BorderColor +'=$008000FF' ); ImageEnView1.LayerDefaults.Add( IELP_BorderWidth +'=3' ); ImageEnView1.Layer...
克隆 ImageEnView1 的图像到第二个 ImageEnView2
procedure TForm1.ImageEnView1ViewChange(Sender: TObject; Change: Integer); var Dest : TImageEnView; begin if fUpdatingView then exit; if Sender = ImageEnView2 then Dest := ImageEnV...
