上一页 1 2 3 4 5 6 7 8 ··· 11 下一页
摘要: 今天尝试了TTabControl的使用。在很多Android的app中,首次启动时都使用选项卡模式进行产品介绍,用户通过向左滑动,改变选项卡。在xe5下这项工作由TTabControl控件完成,如下图:1、TTabControl外观TTabControl的外观由属性TabPosition控制,可选项包括:tpTop 选项tab在控件上方tpBottom 选项tab在控件下方tpNone 以原点形式显示选项tab,在控件下方,如下图:tpDots 以方格形式显示选项tab,在控件下方,如下图:2、控制换页对换页的处理有以下几种形式:(1)按钮+Action控制通过创建标准Action——TCha 阅读全文
posted @ 2013-11-06 16:55 无悔的勇气 阅读(407) 评论(0) 推荐(0) 编辑
摘要: 在Delphi中窗体与窗体之间的交互与调用非常简单,在FMX中这个优势得到了充分体现,先建立一个主窗体和一个需要调用的窗体: 在主窗体上放的按钮事件如下:…private { Private declarations } //定义私有窗体对象 Ffrm: TfrmOtherFMX;…procedure TfrmMainFMX.Button1Click(Sender: TObject); begin //创建并显示窗体 if not Assigned(Ffrm) then Ffrm := TfrmOtherFMX.Create(Self); Ffrm.Show; en... 阅读全文
posted @ 2013-11-06 16:52 无悔的勇气 阅读(310) 评论(0) 推荐(0) 编辑
摘要: 在VCL下,常用的询问对话框包括procedure TfrmMainVCL.btnAppMessageboxClick(Sender: TObject); begin if Application.MessageBox('是否退出?', '询问', MB_YESNO + MB_ICONQUESTION) = IDYES then begin Close; end; end;或者是:uses System.UITypes;procedure TfrmMainVCL.btnMessageDlgClick(Sender: TObject); begin if Me.. 阅读全文
posted @ 2013-11-06 16:51 无悔的勇气 阅读(308) 评论(0) 推荐(0) 编辑
摘要: 如何设计并使用FireMonkeyStyleFireMonkey使用Style来控制控件的显示方式。每个控件都有一个StyleLookup属性,FireMonkey就是通过控件的这个属性来在当前窗体的StyleBook控件中查找匹配的Style,如果找到了这个Style,那么控件就使用这个Style来显示。StyleBook是一个Style的集合,里面可以有窗体的Style,按钮的Style,文本框的Style,等等。每个Style其实就是一个控件,像常用到的TLayout,TRectangle等等,只是这个控件需要设置它的StyleName。比如我在StyleBook中设计这样一个按钮:l 阅读全文
posted @ 2013-11-06 13:01 无悔的勇气 阅读(1403) 评论(0) 推荐(0) 编辑
摘要: 用indy开发了发送邮件程序,通过126,sina等发送邮件可以发送出去,而通过tom,163则被退回,显示被kbas系统退回.后来通过观察Foxmail的通讯过程,区别在foxmail发送EHLO指令时用的是一个名字,而indy缺少使用的是邮箱名字.通过直接使用Socket连接发送邮件测试,将EHLO改为名字后发送成功.研究indy源码,发现indy中的smtp控件的HelloName属性如果有值的话就使用该属性值,没有值的话则使用其他值:if HeloName '' then begin LNameToSend := HeloName; end else begin //N 阅读全文
posted @ 2013-10-31 20:22 无悔的勇气 阅读(360) 评论(0) 推荐(0) 编辑
摘要: hotmail开放了pop3,可以使用客户端工具收取邮件了。POP 服务器: pop3.live.com (端口 995)需要 POP SSL?: 是的用户名: Windows Live ID, 比如:livesino@hotmail.com密码: 对应 Windows Live ID 的密码SMTP 服务器: smtp.live.com (端口 25)需要身份验证?: 是的需要 TLS/SSL?: 是的使用indy,需要SSL认证,到网上查阅 ,看到了Marco Cantù的文章:Send mail to GMail using IndyOnce you've moved 阅读全文
posted @ 2013-10-31 20:21 无悔的勇气 阅读(379) 评论(0) 推荐(0) 编辑
摘要: {关于打印监控,下面是一个简单的示例,可以监控到打印的任务信息。}unit FfrmMain;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, ComCtrls, StdCtrls, Buttons,WinSpool;type TfrmMain = class(TForm) ListView1: TListView; Panel1: TPanel; BitBtn2: TBitBtn; Timer1: ... 阅读全文
posted @ 2013-10-31 20:20 无悔的勇气 阅读(824) 评论(0) 推荐(0) 编辑
摘要: 使用DataSnap做服务器,端口设置为可配置,然后在程序中动态指定:procedure TscUPower.DataModuleCreate(Sender: TObject);begin dstUPower.Port:=DSPort;end;默认端口为211,测试改变端口,没有报告错误,但客户端连接不上。后调整为:procedure TscUPower.DataModuleCreate(Sender: TObject);begin dstUPower.Stop; dstUPower.Port:=DSPort; dstUPower.Start;end;OK,客户端可以正常连接了。端口动... 阅读全文
posted @ 2013-10-31 20:19 无悔的勇气 阅读(552) 评论(0) 推荐(0) 编辑
摘要: TStrings是一个抽象类,在实际开发中,是除了基本类型外,应用得最多的。常规的用法大家都知道,现在来讨论它的一些高级的用法。先把要讨论的几个属性列出来:1、CommaText2、Delimiter&DelimitedText3、Names&Values&ValueFromIndex先看第一个:CommaText。怎么用呢?用代码说话:const constr :String='aaa,bbb,ccc,ddd';var strs :TStrings; i :Integer;begin strs := TStringList.Create; strs.C 阅读全文
posted @ 2013-10-31 20:18 无悔的勇气 阅读(314) 评论(0) 推荐(0) 编辑
摘要: (**************************************************************)(* Advanced Encryption Standard (AES) *)(* Interface Unit v1.3 *)(* *)(* Copyright (c) 2002 Jorlen Young ... 阅读全文
posted @ 2013-10-31 20:17 无悔的勇气 阅读(5115) 评论(0) 推荐(0) 编辑
上一页 1 2 3 4 5 6 7 8 ··· 11 下一页