![](https://img-blog.csdnimg.cn/20190927151026427.png?x-oss-process=image/resize,m_fixed,h_224,w_224)
实用
记录实用的技巧
退堂鼓表演艺术家YW
废物
展开
-
Delphi Json试用
简单试用一下Json Uses System.Json Var AJson : TJSONObject //Json对象 A: string; //Json字符 begin AJson := TJSONObject.ParseJSONValue(tmpStr) as TJSONObject; MM_2.Lines.Add('开始:');//MM_2为Memo控件,为了看一下效果。 MM_2.Lines.Add('共有:' + IntToStr(AJson.Count)); for原创 2021-10-26 21:49:30 · 99 阅读 · 0 评论 -
Delphi 长时间不操作提示
procedure TForm1.Timer1Timer(Sender: TObject); var vLastInputInfo: TLastInputInfo; begin vLastInputInfo.cbSize := SizeOf(vLastInputInfo); GetLastInputInfo(vLastInputInfo); if GetTickCount - vLastInputInfo.dwTime > 5000 then begin timer1.Enabled:= false原创 2021-10-26 21:40:14 · 283 阅读 · 0 评论 -
delphi 输入框edit输入限制
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if not (Key in [‘0’…‘9’]) then Key := Chr(0); //禁止输入字符 end; procedure TForm1.Button1Click(Sender: TObject); begin Edit1.SetFocus; //给于焦点 //SendMessage(Edit1.Han原创 2021-10-26 21:35:55 · 1104 阅读 · 0 评论