2015年8月18日
在非UI线程中更改UI（Delphi使用隐藏窗口来处理，QT使用信号槽）
在Delphi里我记得是使用TThread.Synchronize(TThreadMethod)，原理是利用了一个隐藏窗口来处理。在QT Debug模式一下，碰到了同样的问题，显示错误：cannot send events to objects owned by a different thread... Read More
posted @ 2015-08-18 23:41 findumars Views(918) Comments(0) Diggs(0)
Delphi的Owner与Parent可以不一致，而且Owner不是必须存在（一共7个问题） good
问题1：Owner与Parent不一致：新建一个Form，上面放一个Button1，一个Panel1，然后在Panel1上再放一个Button2，测试结果：procedure TForm1.Button2Click(Sender: TObject);begin ShowMessage(butt... Read More
posted @ 2015-08-18 22:30 findumars Views(1643) Comments(0) Diggs(0)
截断WM_SYSCOMMAND的SC_CLOSE命令（VC与Delphi双版本）
WM_SYSCOMMAND - 系统命令消息，当点击最大化按钮，最小化按钮，关闭按钮等。都会收到这个消息。常用于窗口关闭时提示用户处理。WPARAM - 具体的命令，例如 关闭 SC_CLOSELPARAM - 鼠标的位置LOWORD - 低16位 ，水平位置。HIWORD - 高16位 ，垂直位置... Read More
posted @ 2015-08-18 21:33 findumars Views(1664) Comments(0) Diggs(0)
与QString("我是中文")完全一样，你必须告诉tr这个窄字符串是何种编码？你不告诉它，它就用latin1。于是所谓的乱码问题就出来了。
在论坛中漂，经常遇到有人遇到tr相关的问题。用tr的有两类人： (1)因为发现中文老出问题，然后搜索，发现很多人用tr，于是他也开始用tr (2)另一类人，确实是出于国际化的需要，将需要在界面上显示的文件都用tr包起来，这有分两种： (2a) 用tr包住英文(最最推荐的用法，源码英文，然后提供英文到 Read More
posted @ 2015-08-18 21:24 findumars Views(919) Comments(1) Diggs(0)
运行时改变控件的大小（点击后立刻ReleaseCapture，然后计算位移，最后发消息改变位置）——最有趣的是TPanel其实也有窗口标题，因此可发HTCAPTION消息
//光标在控件不同位置时的样式// 由于拐角这点手动精确实在困难 所以用范围 范围+3 这样很容易就找到这一点了procedure CtrlMouseMove(Ctrl: TWinControl; Shift: TShiftState;X, Y: Integer);begin with Ctrl... Read More
posted @ 2015-08-18 20:55 findumars Views(584) Comments(0) Diggs(0)
StringGrid右击选中表格（发消息给句柄模拟点击，右键点击也是MouseDown）
顺便还把单元格给变了：procedure TFGLGL.StringGrid1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);var MousePos: TSmallP... Read More
posted @ 2015-08-18 20:49 findumars Views(592) Comments(0) Diggs(0)
修改Delphi工具控件的默认字体
修改Delphi工具控件的默认字体：注册表：Delphi 6: HKEY_CURRENT_USER\Software\Borland\Delphi\6.0Delphi 7: HKEY_CURRENT_USER\Software\Borland\Delphi\7.0下增加一个名为“FormDesign... Read More
posted @ 2015-08-18 20:44 findumars Views(902) Comments(0) Diggs(0)
Delphi WebBrowser控件的使用（大全 good）
Delphi WebBrowser控件的使用WebBrowser控件属性：1、Application如果该对象有效，则返回掌管WebBrowser控件的应用程序实现的自动化对象(IDispatch)。如果在宿主对象中自动化对象无效，程序将返回WebBrowser控件的自动化对象2、Parent 返回... Read More
posted @ 2015-08-18 20:30 findumars Views(7599) Comments(0) Diggs(0)
透明窗体透明窗体 控件正常显示
//TransparentFrm透明窗体透明窗体 控件正常显示{以图片的形状作为窗体形态}{使窗体透明透明的只剩下个控件}//调用setFormTransParent(Form1);procedure setFormTransParent(Form:TForm); begin Form.Bord... Read More
posted @ 2015-08-18 20:17 findumars Views(345) Comments(0) Diggs(0)
Delphi 在任务栏隐藏程序图标
Delphi 在任务栏隐藏程序图标方法一：1、修改工程文件中的“Application.MainFormOnTaskbar := True;”为“Application.MainFormOnTaskbar := False;”2、在主窗体的 OnShow 事件中写下：ShowWindow(Appli... Read More
posted @ 2015-08-18 20:13 findumars Views(3152) Comments(0) Diggs(0)
Delphi实现HTMLWebBrowser实现HTML界面
HTML的界面有以下特点：图文混排，格式灵活，可以包含Flash、声音和视频等，实现图文声像的多媒体界面，而且易于建立和维护。另外，HTML的显示环境一般机器上都具备，通常不需要安装额外的软件。当然，HTML界面也有它欠缺的方面，即：界面控制能力有限，代码调试不便----虽然DHTML提供了比较强的... Read More
posted @ 2015-08-18 20:00 findumars Views(3536) Comments(0) Diggs(0)
Windows窗口样式速查参考，Delphi窗口控件的风格都有它们来决定（附Delphi何时用到它们，并举例说明）good
/* 窗口样式参考列表（都是GetWindowLong的GWL_STYLE风格，都是TCreateParams.Sytle的一部分），详细列表如下：https://msdn.microsoft.com/en-us/library/windows/desktop/ms632600(v=vs.85).a Read More
posted @ 2015-08-18 17:57 findumars Views(1936) Comments(0) Diggs(0)
TEdit,TMemo背景透明（SetWindowLong(WS_EX_TRANSPARENT)增加透明风格）
The component below works perfectly, except for the following problem: 1) Saves the component below in a file "trancomp.pas".Then, install this compon Read More
posted @ 2015-08-18 17:55 findumars Views(2992) Comments(1) Diggs(0)
子窗体显示在任务栏，且子窗体中又有弹窗（CreateParams修改三个风格参数）
子窗体显示在任务栏时，procedure Tfrm_SendSmartMsg.CreateParams(var Params: TCreateParams);begin inherited; Params.WndParent := 0;end;这时子窗体会在任务栏有单独的按钮，如果这时这个子窗体上又... Read More
posted @ 2015-08-18 17:50 findumars Views(662) Comments(0) Diggs(0)
窗体前端显示（ShowWindowAsync有许多优点）
H:=FindWindow('Tfrm_MainForm','aa'); if H>0 then begin ShowWindowAsync(h,SW_MAX); SetForegroundWindow(h); end;参考：http://m.blog.csdn.net/blog/fghydx/... Read More
posted @ 2015-08-18 17:42 findumars Views(2244) Comments(0) Diggs(0)
DLL ActiveForm 线程同步问题
本文试着从分析Synchronize同步执行的实现机制入手，来解决DLL/ActiveForm中线程同步的问题。 线程中进行同步时调用的Synchronize函数，仅仅是把调用调用线程、调用方法地址、异常对象封装在一个同步结构中，然后调用处理同步结构的类方法Synchronize。 proced... Read More
posted @ 2015-08-18 17:40 findumars Views(373) Comments(0) Diggs(0)
Delphi基本图像处理代码
//浮雕procedure Emboss(SrcBmp,DestBmp:TBitmap;AzimuthChange:integer);overload;var i, j, Gray, Azimuthvalue, R, G, B: integer; SrcRGB, SrcRGB1, SrcRGB2, ... Read More
posted @ 2015-08-18 16:45 findumars Views(1167) Comments(0) Diggs(0)
Delphi 版本号（D1到XE6），发现一个delphi.wikia.com网站
Borland Compiler Conditional DefinesEditTalk12,909PAGES ONTHIS WIKIProduct NameVersionConditional DefineCompilerVersionEmbarcadero RAD Studio XE620.0V... Read More
posted @ 2015-08-18 16:41 findumars Views(437) Comments(0) Diggs(0)
Delphi常用排序
1.冒泡排序 Delphi/Pascal code ? 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 procedure BubbleSort(var x:array of integer); var i,j,intTmp:integer; begin for  Read More
posted @ 2015-08-18 16:38 findumars Views(1732) Comments(0) Diggs(0)
Delphi中用Webbrowser加载百度地图滚轮失效（ApplicationEvents里使用IsChild提前判断是哪个控件的消息）
在Delphi中使用Webbrowser加载百度地图时,点击了其它界面,再回到百度地图中,即使点击了鼠标,再用滚轮也不能缩 放地图,除非点地图里面的自带的控件,之后才能缩放,原因是因为其它窗体控件获得焦点后没还回给Webbrowser.目前的解决办法是在窗体上拖一个ApplicationEvents... Read More
posted @ 2015-08-18 16:30 findumars Views(928) Comments(0) Diggs(0)