Delphi中SendMessage给一个Edit控件发送WM_SETTEXT消息

本文整理自网络，侵删。

 
procedure SetWndText(hWnd:HWND; Text: string);
var
  Ret: LongInt;
  mText: PChar;
  Buf: Integer;
begin
  GetMem(mText, Length(Text));
  StrCopy(mText, PChar(Text));
  try
    Buf := LongInt(mText);
    SendMessage(hWnd,WM_SETTEXT, 0, Buf);
  finally
    FreeMem(mText, Length(Text));
  end;
end;
 

相关阅读 >>

Delphi 正则表达式tperlregex 类的属性与方法

Delphi中禁用和取消android应用睡眠

Delphi fdmemtable中如何在已有的字段数据集上加入字段

Delphi返回一个汉字的unicode编码

Delphi里树形菜单的实现

Delphi使用xmlhttp获取时间

Delphi 操作sql 插入一万条数据 三种方式速度测试

Delphi 使用int3进行hook处理

Delphi excel数据导入数据库表

Delphi edit1.gettextlen 获取编辑框字符数

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi中SendMessage给一个Edit控件发送WM_SETTEXT消息