uses Vcl.Styles, vcl.Themes; procedure TForm1.FormCreate(Sender: TObject); begin TStyleManager.LoadFromFile('Windows10Dark.vsf'); TStyleManager.SetStyle(TStyleManager.StyleNames[1]); end; //VCL 的样式文件 *.vsf 在 X:\Program Files\Embarcadero\RAD Studio\9.…

一.一个叫声接口和几只鸭子 从一个叫声接口开始. {<HeadFirst设计模式>Delphi代码之模式小结 } { 一个叫声接口                            } { 编译工具:Delphi2010 for win32          } { E-Mail :guzh-0417@163.com             } unit uQuackable; interface type IQuackable = interface(IInterface) proced…

unit FrmMappingMode; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TFrmMM = class(TForm) procedure FormPaint(Sender: TObject); procedure FormResize(Sender: TObject); private { Private declarat…

Showmodal 是个函数, Show 是个过程 1.     Showmodal: 概念 : 当你调用一个窗口用 SHOWMODAL 时 , 当这个窗口显示出来后 , 程序不会继续自己执行 , 而是根据你对这个窗口的操作来执行 , 只有关闭了这个窗口后才会执行. 属性 : FormStyle 改为 fsNormal , visible 改为 false 2.     Show: 概念 : SHOW 不同,当窗口显示后,代码一样往下执行的 , 即程序会继续执行. 属性 : FormStyle …

我是新手评议谈不上,但个人认为必须得跟主流大佬走,这同时也得有自己的核心技术,才最终能让自己成为大佬. ------------------------------------------------------------------------------- 移动设备的强大是必然的趋势,大小和速度很快都不是问题的,专心做win32更没市场,作为快速开发平台, C#已经做的很好了,没法竞争了,移动平台才是出路.就开发而言如果一个普通应用真能作到一套代码全部搞完,对公司还是有不少诱惑的,否则要建…

在第一讲使用delphi+intraweb进行微信开发1--微信平台接入中我们编写了一个简单的微信接口程序,这个程序我是用Stand Alone Server / Service 方式编译的程序,并且将端口设置成80进行的微信接口测试,但是实际使用时为了更好的服务器性能我们一般采用iis作为web服务器,以往的情况下iw需要编译成isapi部署在iis上.但是由于自打iis7以后iis对isapi的态度发生了很大变化(推荐使用fastcgi了)导致编译好的isapi很难在iis7.5上部署成功,…

Delphi的大多数书籍里面都没有提到delphi的各种socket通信组件的模式和模型,有的书只讲解了windows的socket模式和模型,并没有归纳各种组件采用的模型,所以我们的程序员并不知道如何进行选择,只知道某组件好,为什么好,如何运用就不知道了. 笔者对这些组件进行了一个归纳,如下: 组件 单元 依赖 模式 模型 WebApp/CGI sockapp.pas Indy 阻塞/非阻塞 select Indy 阻塞/非阻塞 select ICS OverbyteIcsWSocket.pa…

本文来自:http://www.cnblogs.com/hezihang/p/6083555.html Delphi采用接口方式设计模块,可以降低模块之间的耦合,便于扩展和维护.本文提供一个实现基于接口(IInterface)方式的监听器模式(观察者模式.订阅者模式),实现一个自动多播器. 下面程序在Berlin下测试通过,其他Delphi版本未测试,未进行跨平台测试(应该可以支持) 1.prepare 在观察者模式中采用接口,可以将相关函数汇合为接口. 举例:假设我们窗口有一个TTreeVie…

zw版[转发·台湾nvp系列Delphi例程].NET调用HALCON COM控件内存释放模式 ------------------------------------方法一 :Imports System.Runtime.InteropServices Marshal.ReleaseComObject(COM物件)COM 物件 = Nothing 方法二 :COM 物件 = NothingGC.Collect()GC.WaitForPendingFinalizers() 方法三 :Import…

问题现象:delphi不能进行调试模式 问题原因:可能是防火墙的原因,我有一次在电脑清理时,把delphi的调试程序名放在了360的黑名单中,按F9后,无法调试. 问题处理:你懂的(要不白名单,要不你就删除那个杀毒软件). 问题现象:delphi不能进行调试模式 问题原因:自己把项目设置成了Release. 问题处理:选中项目右击->设置成Dubug.…