参考:https://www.cnblogs.com/liessay/p/5267221.html
1]: Picture:载入要显示的图片,也可从 DEV自带 Icon Library库里选择
2]: Properties->Caption在没有内容的时候显示在图片框中间的文字
3]: Properties->PopupMenuLayout->MenuItems可选择需要显示在图片上的右键菜单命令
1]: Picture:载入要显示的图片,也可从 DEV自带 Icon Library库里选择
2]: Properties->Caption在没有内容的时候显示在图片框中间的文字
3]: Properties->PopupMenuLayout->MenuItems可选择需要显示在图片上的右键菜单命令
右键 自定义 菜单事件
再添加 自定义 事件
procedure TForm2.cxImage1PropertiesCustomClick(Sender: TObject); begin showmessage('右键 自定义 菜单事件') end;
//载入图片 procedure TForm1.Button2Click(Sender: TObject); begin if OpenDialog1.Execute then begin cxImage1.Picture.LoadFromFile(OpenDialog1.FileName); end; end; //保存图片 procedure TForm1.Button3Click(Sender: TObject); begin if SavePictureDialog1.Execute then begin cxImage1.Picture.SaveToFile(SavePictureDialog1.FileName); end; end;
[a] 设置 cxImage1的Properties.FitMode 属性为 ifmNormal.
[b] Specify the zoom range (MinZoom and MaxZoom);
[c] Adjust the zoom level of the currently displayed image (ZoomPercent);
[d] Control the visibility of the zoom track bar and its change buttons (ShowZoomTrackBar).
在鼠标 滑过 cxImage1时,即可看到 缩放 水平栏
Delphi cxImage控件隐藏选中时的边框
//鼠标点击时是否显示边框 cxImage1.Properties.ShowFocusRect:= False;
运行时可移动
procedure TForm2.cxImage1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin releaseCapture; cximage1.Perform(WM_SYSCOMMAND,SC_MOVE+1,0); end;
响应鼠标滑轮事件
参考https://blog.csdn.net/yangjian900109/article/details/51029953