2022年5月25日
Delphi复制与粘贴操作
摘要： 复制操作: 先选择后操作 edt1.SelectAll;edt1.CopyToClipboard; 粘贴: edt1.SelectAll; //如果不选择的话,会变成插入 edt1.PasteFromClipboard ; 也可以引用Vcl.Clipbrd 复制: Clipboard.AsText 阅读全文
posted @ 2022-05-25 14:33 一曲轻扬 阅读(739) 评论(0) 推荐(0)
Delphi RGB与TColor的转换
摘要： 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 一曲轻扬 阅读(686) 评论(0) 推荐(0)
Delphi自定义光标形状
摘要： 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 一曲轻扬 阅读(260) 评论(0) 推荐(0)