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 通过进程id获取进程名

Delphi spcomm控件的安装

Delphi idhttp post 普通提交乱码处理

Delphi chromium post

Delphi datasnap双缓存下载文件

Delphi隐藏桌面图片和显示桌面图标

Delphi unix时间转换成Delphi时间

Delphi 如何确定活动桌面是否已启用

Delphi firedac 下的 sqlite [9] - 关于排序

Delphi读写文本文件

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

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