如题
解决方案 »
- 每天都很菜......
- 众所周知,VB编写自己控件的能力还是比较强的,话说Delphi编写控件的能力不是不很弱呢....
- 主从表里 用2个DBGRID显示数据时为什么 主表一动 从表里就只显示一条和主表对应的数据 怎么设置才会从表也显示全部数据
- MSCOMM32.OCX的唯一事件处理函数 OnComm是怎么用的??
- win2000和win98打印问题
- ****主/从表关系,在客户端中Clientdataset如何设置?
- 如何获得一个命令行程序的结果?
- 可不可以通过在键盘上按下某个键来运行一个应用程序
- 如何取消detailband的自动循环功能,自己控制记录条数,和分页?
- 如何以圆心,半径画圆?各位救命!!!
- 如何向WINODWS 98系统下的DOS窗口程序,模拟键盘输入信息,急急急! 在线等待
- 急,delphi7出错了,不能调试了..
GCR_ERRORSTR 修正错误
GCR_INFORMATIONSTR 修正信息串
GCS_COMPATTR 修正编码串属性.
GCS_COMPCLAUSE 修正编码信息.
GCS_COMPREADATTR 修正读入串的属性
GCS_COMPREADCLAUSE 修正读入串的属性.
GCS_COMPREADSTR 修正读入串。
GCS_COMPSTR 修正当前的编码
GCS_CURSORPOS 修正当前编码的光标位置.
GCS_DELTASTART 修正当前编码的开始位置
GCS_RESULTCLAUSE 修正结果串的信息.
GCS_RESULTREADCLAUSE 修正读入串的信息.
GCS_RESULTREADSTR 修正读入串.
GCS_RESULTSTR 修正编码结果串.
CS_INSERTCHAR 在当前位置插入一个字符
CS_NOMOVECARET 替换结果串
用sendmessage上面消息给个例子好吗?就一句
procedure TSeCustomEdit.WMImeComposition(var Msg: TMessage);
var
IMC : HIMC;
Buff : WideString;
i : integer;
begin
if Msg.lParam and GCS_RESULTSTR <> 0 then
begin
IMC := ImmGetContext(Handle);
if IMC <> 0 then
begin
try
{ Get the result string }
SetLength(Buff, ImmGetCompositionStringW(IMC, GCS_RESULTSTR, nil, 0) div
SizeOf(WideChar));
ImmGetCompositionStringW(IMC, GCS_RESULTSTR, PWideChar(Buff),
Length(Buff) * SizeOf(WideChar));
finally
ImmReleaseContext(Handle, IMC);
end; { Insert char messages for each char in string }
for i := 1 to Length(Buff) do
InsertChar(Buff[i]); Msg.Result := 0;
Exit;
end;
end; inherited;
end;