导航

随笔分类 -  Delphi

摘要:Abstract: Semaphores are used to coordinate multiple threads and processes. That semaphores provide multiple threads with simultaneous access to a sha 阅读全文

posted @ 2023-01-23 11:29 wissly 阅读(508) 评论(0) 推荐(0)

摘要:一、代码改变字体大小和颜色 1 procedure TForm1.Button1Click(Sender: TObject); 2 var 3 sNickName, sstr: string; 4 begin 5 sstr := '改变颜色的字符串 !'; 6 sNickName := '用户1:' 阅读全文

posted @ 2022-04-27 10:35 wissly 阅读(476) 评论(0) 推荐(0)

摘要:当文本框没有输入内容且输入焦点不在文本框时,显示提示文字:“请输入帐号”当文本框得到输入焦点时提示文字不显示 unit SkinHintEdit; interface uses Windows,Classes,Controls,SysUtils,Messages,StdCtrls,Forms, Gr 阅读全文

posted @ 2021-11-28 11:25 wissly 阅读(218) 评论(0) 推荐(0)

摘要:关于TIdTCPClient的几种方法 收藏 其实Indy比较简单,但是可以提供的方法太多了。我找了很久,才搞明白。 比方说这个读取缓冲区的数据,就有很多种方法。相对于TTcpClient的几种方法来说,TIdTCPClient确实提供了多种选择,不仔细研究真的容易糊涂(其实我比较喜欢用Curren 阅读全文

posted @ 2021-08-23 20:47 wissly 阅读(420) 评论(0) 推荐(1)

摘要:delphi 使用indy -idHttp 控件post 数据时 会报connection closed Gracefully这个异常的问题。 网上找了很多方法最多的就是 修改: MyHttp.Request.UserAgent := 'Mozilla/4.0 (compatible; MSIE 6 阅读全文

posted @ 2021-01-04 11:50 wissly 阅读(863) 评论(0) 推荐(0)

摘要:delphi Timage 加上滚动条的方法 1:将 Timage 放入 TScrollBox内,即 [1]设image1.parent:= ScrollBox1; [2]在Object Inspector中将 Timage 拖到 TScrollBox上,使之成为子结点 [3]先拖一个TScroll 阅读全文

posted @ 2020-08-26 19:43 wissly 阅读(510) 评论(0) 推荐(0)

摘要:众所周知,CODE128码广泛用于企业内部、物流系统之中,然而,对于该类条码,却又有着不同种类的细分(主要分为以下四种:code128A,code128B,code128C,ean128)。 主要区别如下: code128A:标准数字和大写字母,控制符,特殊字符 code128B:标准数字和大写字母 阅读全文

posted @ 2020-06-03 11:29 wissly 阅读(2236) 评论(0) 推荐(0)

摘要:在写程序的时候经常碰到这样的需求,如何使处于后台的程序出现在最前面并得到输入焦点?我在网上搜索了很多次,大致搜到的答案如下:一、最小化的恢复最小化if (IsIconic(Handle)) then ShowWindow(Hanlde, SW_RESTORE)二、使用BringToFront 三、使 阅读全文

posted @ 2019-11-20 19:43 wissly 阅读(1895) 评论(0) 推荐(0)

摘要:type TUserInfo = record sUserId,sUserName:String; iUserCount:integer; end; procedure TForm1.Button1Click(Sender: TObject); var fStream:TMemoryStream; fUserRec,sUserDD:TUserInfo; sDataText:... 阅读全文

posted @ 2019-01-19 18:00 wissly 阅读(381) 评论(0) 推荐(0)

摘要:在它的workbegin work事件中写代码 procedure TfrmDownLoad.IdHTTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode; const AWorkCountMax: Integer);begin ProgressBar 阅读全文

posted @ 2013-11-27 22:48 wissly 阅读(491) 评论(0) 推荐(0)