2017年7月24日
delphi中获取memo鼠标所在位置的行和列（通过EM_GETRECT消息取得Rect后，自己算一下）
也是看别人写的，但是不容易找到，就转发一篇delphi版本的 function GetLine(X, Y: integer): TPoint;var OldFont : HFont; Hand : THandle; TM : TTextMetric; Rect : TRect;begin Hand Read More
posted @ 2017-07-24 20:00 findumars Views(925) Comments(0) Diggs(0)
delphi的拖拽功能实现
惭愧，编了这么多年程序，还没用过拖拽功能 这次同事要实现图标互换的功能，让我帮忙看一下，于是趁机研究了一下拖拽事件，发现还是比较简单的 参考了http://topic.csdn.net/u/20081015/14/98eef84c-0d2f-43a7-aa82-eef7028ef4f7.html里3 Read More
posted @ 2017-07-24 19:58 findumars Views(2627) Comments(0) Diggs(0)
Delphi中的线程类 - TThread详解
Delphi中的线程类 - TThread详解 2011年06月27日 星期一 20:28 Delphi中有一个线程类TThread是用来实现多线程编程的，这个绝大多数Delphi书藉都有说到，但基本上都是对TThread类的几个成员作一简单介绍，再说明一下Execute的实现和Synchroniz Read More
posted @ 2017-07-24 19:57 findumars Views(2155) Comments(0) Diggs(0)
delphi杀进程的两种方式
第一种：比较简单，根据标题，找到窗口，再找到进程，杀死进程 [delphi] view plain copy procedure KillProgram(WindowTitle : string); const PROCESS_TERMINATE = $0001; var ProcessHandle Read More
posted @ 2017-07-24 19:55 findumars Views(2447) Comments(0) Diggs(0)
简单说说Delphi中线程的释放
线程的释放方式有两种：一种是线程在运行完成后自动释放，一种是手动释放。 无论是那种释放，都应该在线程停止后进行释放。 然而线程的停止也有两种情况：一种是不需要设置标志位，直接完成；一种是由于execute方法中做了循环，需要设置标志位才能停止。 如果线程已经停止并且自动释放，再去手动停止，就会报错。 Read More
posted @ 2017-07-24 19:55 findumars Views(2862) Comments(0) Diggs(0)