N
nisky
Unregistered / Unconfirmed
GUEST, unregistred user!
我写的代码如下:
var
SetStops:Boolean;
Tab:UINT;
HwndEdit:HWND;
begin
HwndEdit:=CreateWindowEx(.......)
//从略,EDIT可以被正确的构造
Tab:=4*17;
SetStops:=PostMessage(HwndEdit,EM_SETTABSTOPS,1,Integer(@Tab));
if SetStops=False then
begin
showmessage('Set Stops failue!');
ErrorCode:=GetLastError;
Showmessage(inttostr(Loword(ErrorCode)));
end;
该消息不能被正确发送,请问为什么?
分数不够可以再加!
var
SetStops:Boolean;
Tab:UINT;
HwndEdit:HWND;
begin
HwndEdit:=CreateWindowEx(.......)
//从略,EDIT可以被正确的构造
Tab:=4*17;
SetStops:=PostMessage(HwndEdit,EM_SETTABSTOPS,1,Integer(@Tab));
if SetStops=False then
begin
showmessage('Set Stops failue!');
ErrorCode:=GetLastError;
Showmessage(inttostr(Loword(ErrorCode)));
end;
该消息不能被正确发送,请问为什么?
分数不够可以再加!