- 博客(19)
- 资源 (3)
- 收藏
- 关注
RSS订阅原创 一款不错的拼多多商家自动回复软件
发现一个好用的拼多多商家自动回复软件火神浏览器，挺好用的。留个记号。官网是：http://huoshen168.cn/
2020-11-25 22:24:22
1663
原创 用RealThinClient组件实现Tcp客户端（2）
创建一个新的工程Client：加入TcpClient Name为TcpClient: 属性配置如下，设置好服务器地址和端口 添加两个按钮，连接服务器，断开服务器，Name分别为btnConnect 和btnDisConnect连接按钮的代码：procedure TForm4.btnConnectClick(Sender: TObject);...
2018-12-05 16:10:50
530
原创 用RealThinClient组件实现Tcp服务器（1）
新建一个空白窗体：加入一个TRtcTcpServer组件，我们来创建一个tcp服务器 如图：改名为TcpServer选中TcpServer ，属性作如下配置：修改服务器地址和端口 添加两个按钮分别命名为：btnListen和btnStopListen我们要启动服务：btnListen按钮的代码：procedure TForm2.btnLis...
2018-12-05 15:54:43
717
原创 TRtcTcpServer 的事件 学习笔记
TRtcTcpServer 的事件 学习笔记property OnDataOut;//说明：每当准备发送的数据块刚刚发送出去时，将触发此事件。要确切地知道它有多少在发送中，请使用TRtcConnection.DataOut事件。//注:虽然数据已经发出，但并不意味着对方已经收到。也可能是在这个包到达另一端之前连接断开。property OnReadyToSend;{每当这个...
2018-12-05 14:04:36
655
原创 订单
<iframe height=498 width=510 src='http://player.youku.com/embed/XMzg2MzkzMjQwNA==' frameborder=0 'allowfullscreen'></iframe>
2018-10-15 16:34:32
285
原创 【玩转控件系列】Style控件组之TscStyledForm控件 --制作弹出窗体虚幻毛玻璃背景效果
用TscStyledForm制作效果如下：正常的效果： 代码如下：procedure TForm2.Button1Click(Sender: TObject);begin Form1.ShowModal;end;运行效果如图：特效制作步骤如下： 放置一个scStyledFormButton的代码如下：procedure TFo...
2018-08-21 15:46:24
1295
原创 在dcef3当中执行js代码并获得返回值
在dcef3当中执行js代码并获得返回值1、如何在dcef3当中执行js代码procedure TForm1.btnWriteZMClick(Sender: TObject);var js: string;begin js := 'document.getElementById(''login_button'').click();'; //获得ID为"login_butt...
2018-08-21 13:16:30
1411
原创 【玩转控件系列】Style控件组之TscGpButton控件 --仿制CSDN的工具栏效果
下图为CSDN的一个web工具栏效果： Delphi制作效果如图：制作步骤如下：1.放置一个Panel，如图设置： 2.再放置一个Panel，为P_tools 3.放一个图片List 4.放置一个GpButton：属性设置1对其和外间距设置： 属性设置2颜色设置：属性设置3图片设置：5.复制...
2018-08-14 14:04:49
1154
原创 【玩转控件系列】控件布局之随心掌控布局 Align And Anchors
很多人对Delphi 的布局运用不好，特制作该教程，用好控件最基本的属性。1.一个Panel随窗体自动大小属性配置：Align=alClient2.上中下布局自动调整大小： 属性配置：Panle1. Align:=alClient;Panle2. Align:=alTop;Panle3. Align:=alBottom;3.侧面板始终靠...
2018-07-19 14:02:59
778
原创 【玩转控件系列】Style控件组之TscSplitView控件 --制作可伸缩的导航菜单栏
敬请期待教程。1.放置一个SplitView2.设置属性：Placement:scsvLeftOpened:FalseOpenWidth:200CompactWidth:50BorderStyle:NoneColor:$001B1A143.放置一个TImageList Name:ImageList24添加若干图片4.在SplitView...
2018-07-18 18:45:40
1560
2
原创 【玩转控件系列】Style控件组之TscSplitView控件 --制作从边缘侧滑滑动显示的查询面板Panle
运行效果如图： 制作步骤：1.放置一个TscSplitView2.设置属性显示模式有两种 ，一种scsvmOverlay：是在其他控件之上，一种是scsvmDocked：和其他控件同时显示的效果。Opened：当前面板的状态是否处于打开状态。OpenedWidth：打开时的宽度；Placement:放置的方位，简单的理解就是靠在哪个边缘。 ...
2018-07-17 15:06:29
557
原创 Delphi 自定义过程：在控件上绘一个图片的方法 过程
procedure WinControlDrawImage(WinControl: TWinControl; Graphic: TGraphic);var MCanvas: TControlCanvas;begin MCanvas := TControlCanvas.Create; try MCanvas.Control := WinControl; MCanva...
2018-07-16 19:04:21
840
原创 Style控件组之Label控件 --制作光晕辉光效果标签
效果如图：重要属性配置：AlphaValue :透明度Color：投影颜色Enabled：是否使用投影GlowSize 发光效果大小Offset：投影位移
2018-07-16 15:26:43
519
原创 疯狂Delphi之Dev系列：CxButton按钮实现扁平化按钮/颜色按钮
很多人认为CxButton不能实现颜色按钮，或者是扁平化的按钮，制作步骤如下：第一步：配置两个按钮的颜色分别为： 第二步：调整控件皮肤选项：按钮最终实现效果：...
2018-07-13 10:27:33
3969
1
原创 delphi Ansi字符串转Unicode编码
function TForm1.AnsiToUnicode(Str: ansistring): string;var s: ansistring; i:integer; j,k:string[2]; a:array [1..1000] of ansichar;begin s:=''; StringToWideChar(Str,@(a[1]),500); i:=1;...
2018-07-12 14:29:01
5239
原创 判断操作系统是否是64位的函数
function Tmain.IsWin64: Boolean;var Kernel32Handle: THandle; IsWow64Process: function(Handle: Windows.THandle; var Res: Windows.BOOL): Windows.BOOL; stdcall; GetNativeSystemInfo: procedure(var ...
2018-07-12 14:08:12
415
原创 写程序名到注册表
function TMain.WriteAppNameToReg: Boolean;var reg,Regedit :TRegistry; sPath,sAppName:String; begin Result := True; reg := TRegistry.Create; try Regedit := TRegistry.Create; ...
2018-07-12 14:07:01
265
原创 设置窗体透明，并且窗体上的控件不透明 (Win2000以上有效)
设置窗体透明，并且窗体上的控件不透明 (Win2000以上有效)procedure TransForm(Form: TForm; FColor: TColor=clFuchsia; FAlpha: Integer=158; FShowType: Integer=0);var Exstyle: DWORD; vflag: Cardinal;begin Case FShowType ...
2018-07-12 14:03:04
1017
Style控件组之Label控件 --制作光晕辉光效果标签-源码
2018-07-16
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人