FindWindow(lpClassName,        {窗口的类名}lpWindowName: PChar {窗口的标题}): HWND;              {返回窗口的句柄; 失败返回 0} //FindWindowEx 比 FindWindow 多出两个句柄参数:FindWindowEx(Parent: HWND;     {要查找子窗口的父窗口句柄}Child: HWND;      {子窗口句柄}ClassName: PChar; {}WindowName: PChar 

写了这么长时间的代码,一直认为调试程序比写程序要重要,上次有人问俺,如何调试一个循环中某个循环条件位置下断点.本来想来在Delphi的断点设置中应该是有一个类似条件断点的东西的,不过我也一直不知道怎么设置这个条件断点,所以当时给他们的说法是在那个循环中,加上一个条件判断,写上一个Showmessage之类的弹窗.然后弹窗之后下断点,这不外乎是一种方法,而且还是一种很SB的方法.直到今天偶然查看到Delphi的调试菜单,愕然发现,原来Delphi是可以设置条件断点的.这货在view->debug

procedure TMainFrm.Timer1Timer(Sender: TObject); var   systemtime:Tsystemtime;   dt:TDateTime; begin   L_DateTime.Caption:=FormatDateTime('YYYY-MM-DD HH:SS',Now); //显示当前时间 MainFrm.Caption:=IntToStr(Timer1.Tag);   timer1.tag:=timer1.tag+1;   if Timer1

仍然是处理多语言中碰到问题. Delphi自2006版以后,TLabel有了EllipsisPosition属性,当长文本超过其大小时,显示以...,如下图: 这样虽然解决显示问题,但很显然,不知道...究竟省略了什么. 于是就想:此类情况,能不能鼠标移上去,以Hint显示完全文本? 追踪其源代码,及查阅资料,实现了这个想法,扩充TLabel,代码如下: 声明: type TLabel = class(StdCtrls.TLabel) protected procedure DoDrawText

设置/获取 字体属性 名称 大小 粗体 斜体 下划线 删除线 颜色1 颜色2   uses MSHTML;   //设置 //------------------------------------------------------------------------------procedure WB_SetFontName();begin  (Form1.webbrowser1.Document as IHTMLDocument2).execCommand('FontName', Fals

问题现象: 今天突然发现不知何时起DELPHI7除了.dpr文件外,其余各Unit都无法设置断点.即在设计状态下设置了断点,在运行后出现的无效断点!百思不得其解...后查了许多资料,花了两个小时才搞好.现总结如下: 问题处理:    1.检查"Project\Options\Compiler\Debugging中的Debug Information"等各选项及Project\Options\中中EXE and TD32 debug info中的Include TD32 debug in

最近设置TcxTreelist的滚动条,发现水平的不起作用, 即使设置 sboth也不起作用. 查找,发现设置的一些属性导致了这个原因, 建立备忘,如下图: 1.属性, 这个页面,设置的表格,怎么也看不到滚动条,只能看到竖直的. 2. 原来表格 属性  OptionsView.ColumnAutoWidth = True 在搞怪  ,把这个属性设置为False, 可以了,如下图. 希望对你有帮助.

1.双击cxgrid控件,选中要设置的column 2.找到properties,将column设置为Textedit,点击左边的加号 3.点击ALignment->Horz选中taleftJustfy 如此设置可解决绑定column的字段为数值时靠右显示问题

procedure TForm1.btn1Click(Sender: TObject); var   IdHTTP: TIdHTTP;   mstrCookie: string;   Cookies : TIdCookieManager;   i: Integer; begin   IdHTTP := TIdHTTP.Create(nil);     IdHTTP.Request.UserAgent := '';   mstrCookie := 'aaa=5555&bb=12345';   Id

第一步.在form中放置一个ImageList: 第二步.将ListView的SmallImages设置为第一步中放置的ImageList: 第三部.将imageList的height设置成自己需要的值即可

Symbolic constant name Value (hexadecimal) Keyboard (or mouse) equivalent VK_LBUTTON 01 Left mouse button VK_RBUTTON 02 Right mouse button VK_CANCEL 03 Control-break processing VK_MBUTTON 04 Middle mouse button (three-button mouse) VK_BACK 08 BACKSPA

显示编译进度 Tools/Environment Options

object Form1: TForm1 Left = Top = Caption = 'Form1' ClientHeight = ClientWidth = Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = - Font.Name = 'Tahoma' Font.Style = [] OldCreateOrder = False OnCreate = FormCre

https://blog.csdn.net/maxwoods/article/details/8592389 http://www.cnblogs.com/baoluo/archive/2011/04/14/2016377.html http://www.360doc.com/content/11/0425/19/6832513_112265020.shtml

问题1:Owner与Parent不一致:新建一个Form,上面放一个Button1,一个Panel1,然后在Panel1上再放一个Button2,测试结果:procedure TForm1.Button2Click(Sender: TObject);begin ShowMessage(button2.Owner.Name); // 显示Form1,凡是拖控件放到Form上的控件,它们的Owner都是Form,可从TControl.ReadState进入深入研究 ShowMessage(butto

1. Git服务器安装, 参考 https://blog.csdn.net/u012842630/article/details/97175397 Git服务器官方网站,要FQ. 2. 工具软件 git  tortoisegit 安装 https://git-scm.com/downloads 这个必装,Git 工具命令,delphi xe 10中要用到.https://tortoisegit.org/download/ 这个看需要,有时想要不打开 delphi rad IDE可以在文件夹中操作

8.4 Delphi自定义组件(3) http://tech.163.com 2006-04-29 11:49:34 来源: 清华大学出版社 网友评论0 条 论坛   3. 测试未安装的组件 在将新组件安装在Component Palette之前就能测试组件运行时的动作.这对于调试新组件特别有用,而且还能用同样的技术测试任意组件,无论该组件是否出现在Component Palette上. 从本质上说,可通过模仿用户将组件放置在Delphi窗体中的动作来测试一个未安装的组件.可按下列步骤来测试未安

参考http://blog.chinaunix.net/uid-10535208-id-2949323.html 一.概述 Delphi提供了好几种对象以方便进行多线程编程.多线程应用程序有以下几方面的功能: 1.避免性能瓶颈:单线程应用程序在进行比较慢的操作如磁盘读写的时候,CPU必须停下来等待,直到该操作执行完毕.而多线程应用程序在进行比较慢的操作如磁盘读写的时候,即系执行另一个单独的线程: 2.组织应用才程序的行为:通常,一个程序的行为可以组织成几个功能相互独立的平行的处理过程.将这些独立

设置QWidget的Qt::WindowModality属性为Qt::WindowModal和Qt::ApplicationModal,发现窗体仍然不会模态,网上查了一下,有人说改属性只对window有效,找了很多方法,验证原因是因为我的QWidget有Parent,如果构造时设置Parent为NULL的话,就可以了. 以下是工作中用到的常用窗体属性: setWindowFlags(Qt::FramelessWindowHint);//去除窗体边框 tWindowModality(Qt::App

1. 首先需要设置程序生成 map 文件.Project -> Options -> Linker -> Map file , Detailed 2. 计算公式Edit2.Text := IntToHex(StrToInt('$'+ Edit1.Text) - StrToInt('$00400000') - StrToInt('$00001000'), 8) ;将看到的地址错误,输入到 Edit1 中. 3. 从 Map 文件中查这个地址.一般直接查是找不到的.根据获得的 Edit2 中

我试过java返回一个对象到delphi端没问题,可反过来,delphi通过参数传一个对象到java,java端得到的对象值变为空,不知道是不是delphi这边设置或者对象注册方面有问题,究竟该怎么解决,请各位大虾指教,小妹在这多谢各位了!delphi根据java wsdl文件生成的webservice文件内容如下:// ************************************************************************ //// The types