在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)
问题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 - 系统命令消息,当点击最大化按钮,最小化按钮,关闭按钮等。都会收到这个消息。常用于窗口关闭时提示用户处理。WPARAM - 具体的命令,例如 关闭 SC_CLOSELPARAM - 鼠标的位置LOWORD - 低16位 ,水平位置。HIWORD - 高16位 ,垂直位置... Read More
posted @ 2015-08-18 21:33
findumars
Views(1664)
Comments(0)
Diggs(0)
在论坛中漂,经常遇到有人遇到tr相关的问题。用tr的有两类人: (1)因为发现中文老出问题,然后搜索,发现很多人用tr,于是他也开始用tr (2)另一类人,确实是出于国际化的需要,将需要在界面上显示的文件都用tr包起来,这有分两种: (2a) 用tr包住英文(最最推荐的用法,源码英文,然后提供英文到 Read More
posted @ 2015-08-18 21:24
findumars
Views(919)
Comments(1)
Diggs(0)
//光标在控件不同位置时的样式// 由于拐角这点手动精确实在困难 所以用范围 范围+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)
顺便还把单元格给变了: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 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控件的使用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 在任务栏隐藏程序图标方法一: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)
HTML的界面有以下特点:图文混排,格式灵活,可以包含Flash、声音和视频等,实现图文声像的多媒体界面,而且易于建立和维护。另外,HTML的显示环境一般机器上都具备,通常不需要安装额外的软件。当然,HTML界面也有它欠缺的方面,即:界面控制能力有限,代码调试不便----虽然DHTML提供了比较强的... Read More
posted @ 2015-08-18 20:00
findumars
Views(3536)
Comments(0)
Diggs(0)
/* 窗口样式参考列表(都是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)
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)
子窗体显示在任务栏时,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)
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)
本文试着从分析Synchronize同步执行的实现机制入手,来解决DLL/ActiveForm中线程同步的问题。 线程中进行同步时调用的Synchronize函数,仅仅是把调用调用线程、调用方法地址、异常对象封装在一个同步结构中,然后调用处理同步结构的类方法Synchronize。 proced... Read More
posted @ 2015-08-18 17:40
findumars
Views(373)
Comments(0)
Diggs(0)
//浮雕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)
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)
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加载百度地图时,点击了其它界面,再回到百度地图中,即使点击了鼠标,再用滚轮也不能缩 放地图,除非点地图里面的自带的控件,之后才能缩放,原因是因为其它窗体控件获得焦点后没还回给Webbrowser.目前的解决办法是在窗体上拖一个ApplicationEvents... Read More
posted @ 2015-08-18 16:30
findumars
Views(928)
Comments(0)
Diggs(0)