能力值：
(RANK：10 )
|
-
-
26 楼
最初由 firstrose 发布
OK，找到原因了。
问题在下面的过程里。
function LinkProc(h_Wnd: HWND; Msg, wParam, lParam: DWORD):LRESULT;stdcall;
var
........
继续努力!感谢对本论坛的支持!!!THIKNS!!!
|
能力值：
( LV12，RANK：650 )
|
-
-
27 楼
系统锁死的话，应该是你这个系统的问题。因为我这里可以用，所以无法知道问题所在。
你可以尝试将相关的日志和其他信息发过来。但无法保证解决。如果你会delphi的话，可以自己试试。一段一段地屏蔽代码。
抱歉。
|
能力值：
( LV4，RANK：50 )
|
-
-
28 楼
已经正常了-把@l改成Pointer(l)就好了
|
能力值：
( LV9，RANK：330 )
|
-
-
29 楼
最初由 qwert123 发布
另外，不同意前面关于“无用功”说法。
我想firstrose作的是属于“逆向工程”比较高的境界的工作，
强烈支持firstrose！！！
........
我说的“无用功”是指在他逆向完之后再优化代码是没必要了！ firstrose真是delphi高手，又解决了一个bug
|
能力值：
( LV9，RANK：330 )
|
-
-
30 楼
你解决的是死机的问题，我的模板里早就是如下了啊？
function LinkProc(h_Wnd: HWND; Msg, wParam, lParam: DWORD): LRESULT; stdcall;
var
l: POINTER;
begin
Result := 1;
case Msg of
WM_LBUTTONUP:
//鼠标左键点击后打开浏览器，定位到主页地址
ShellExecute(0, nil, S_Link, nil, nil, 0);
WM_NCHITTEST:
//将 WM_NCHITTEST 返回 TRUE 可以接收鼠标动作，实现按下功能 !
Result := 1;
WM_SETCURSOR:
//更改鼠标移动时的样式
SetCursor(h_Cur);
else
begin
l :=pointer(GetWindowLong(h_Wnd, GWL_USERDATA));
CallWindowProc(l, h_Wnd, Msg, wParam, lParam);
end;
end;
end;
就是在有的win2000和winxp下，输入输出框的底色显示为白色，因此看不清！ ――这个还是没解决啊！
|
能力值：
( LV4，RANK：50 )
|
-
-
31 楼
下了，看看
|
能力值：
( LV2，RANK：10 )
|
-
-
32 楼
已下载，学习
|
能力值：
( LV4，RANK：50 )
|
-
-
33 楼
谢谢
学习先
|
能力值：
( LV12，RANK：650 )
|
-
-
34 楼
最初由 laoqian 发布
你解决的是死机的问题，我的模板里早就是如下了啊？
function LinkProc(h_Wnd: HWND; Msg, wParam, lParam: DWORD): LRESULT; stdcall;
var
l: POINTER;
........
我作个说明。
你的模板没有问题。
youknown在1.5里加了你的部分代码。但是似乎他没有完全照搬，而是稍微改写了一下。这样，就改出问题来了。我的patch是针对youknown的改写版。当然，把你的代码copy了也可以。
至于颜色，正好我在公司用的2000也有这个问题，容我研究一下。
|
能力值：
( LV12，RANK：650 )
|
-
-
35 楼
关于颜色，这个不是bug。
只要在WM_CTLCOLOREDIT里加SetBkColor(wParam,$DEB038)就可以了。不过下面的readonly框还是老样子。估计是因为readonly的缘故。去掉readonly属性就好了。
如果要完美解决，找个sdk高手问问。
|
能力值：
( LV9，RANK：330 )
|
-
-
36 楼
对了，youknow也是这么说的，readonly缘故
|
能力值：
( LV12，RANK：650 )
|
-
-
37 楼
看来他sdk比较熟。
你那头像够可以的。
以前没有允许ie显示动画，结果只看到一个女的托着腮。
|
能力值：
( LV2，RANK：10 )
|
-
-
38 楼
不要用readonly属性，直接在消息循环中阻塞需要只读属性Edit的输入即可。
|
能力值：
( LV12，RANK：650 )
|
-
-
39 楼
最初由 you_known 发布
不要用readonly属性，直接在消息循环中阻塞需要只读属性Edit的输入即可。
是吗？我开始还想用callback
|
能力值：
( LV9，RANK：330 )
|
-
-
40 楼
怎样实现“在消息循环中阻塞需要只读属性Edit的输入”？
|
能力值：
( LV2，RANK：10 )
|
-
-
41 楼
下了。
:)
thanks
|
能力值：
( LV12，RANK：650 )
|
-
-
42 楼
最初由 laoqian 发布
怎样实现“在消息循环中阻塞需要只读属性Edit的输入”？
好象是WM_KEYDOWN
|
能力值：
( LV2，RANK：10 )
|
-
-
43 楼
不错，下载，学习。
|
能力值：
( LV3，RANK：20 )
|
-
-
44 楼
不错，我也下了
|
|
|
|
