Delphi Base

WindSon

导航

2020年3月24日 #

Delphi 判断字符是否是汉字

摘要： function IsHZ(ch: WideChar): boolean; var i: Integer; begin i := Ord(ch); if (i < 19968) or (i > 40869) then result := False else result := True; end; 阅读全文

posted @ 2020-03-24 21:55 windsonvip 阅读(529) 评论(0) 推荐(0) 编辑

Delphi 判断当前系统是否64位

摘要： uses Winapi.Windows; function IsWin64: Boolean; var IsWow64Process: function(Handle: THandle; var Res: BOOL): BOOL; stdcall; GetNativeSystemInfo: proc 阅读全文

posted @ 2020-03-24 21:52 windsonvip 阅读(528) 评论(0) 推荐(0) 编辑

Delphi 使控件变成圆角的方法

摘要： procedure RoundControl(Control: TWinControl; arc1, arc2: Integer); var R: TRect; Rgn: HRGN; begin with Control do begin R := Control.ClientRect; Rgn : 阅读全文

posted @ 2020-03-24 21:40 windsonvip 阅读(757) 评论(0) 推荐(0) 编辑