05 2022 档案

摘要:首先看看Delphi的官方文档中关于refresh的说明Refetches data from the database to update a dataset抯 view of data.procedure Refresh;DescriptionCall Refresh to ensure tha 阅读全文
posted @ 2022-05-27 10:27 一曲轻扬 阅读(551) 评论(0) 推荐(0) 编辑
摘要:代码如下: SetWindowPos(Handle,HWND_TOPMOST,Left,Top,Width,Height,SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE); 只要改变相应参数还可实现其他效果,如隐藏、固定不动等。 下面我举一个复选框的例子: pr 阅读全文
posted @ 2022-05-27 09:26 一曲轻扬 阅读(1554) 评论(0) 推荐(0) 编辑
摘要:复制操作: 先选择后操作 edt1.SelectAll;edt1.CopyToClipboard; 粘贴: edt1.SelectAll; //如果不选择的话,会变成插入 edt1.PasteFromClipboard ; 也可以引用Vcl.Clipbrd 复制: Clipboard.AsText 阅读全文
posted @ 2022-05-25 14:33 一曲轻扬 阅读(662) 评论(0) 推荐(0) 编辑
摘要:1.RGB转换为Tcolor function RGBToColor(R,G,B: byte): Tcolor;begin Result := B Shl 16 or G shl 8 or R;end; 2.Tcolor转换为RGB proceudre Tform1.Button1Clink(Sen 阅读全文
posted @ 2022-05-25 11:49 一曲轻扬 阅读(633) 评论(0) 推荐(0) 编辑
摘要:procedure T屏幕取色器.img1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin if Button = mbLeft then begin img1.Vis 阅读全文
posted @ 2022-05-25 11:42 一曲轻扬 阅读(222) 评论(0) 推荐(0) 编辑

点击右上角即可分享
微信分享提示