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 判断文件名是否有效

Delphi定时器相关的简单例子

Delphi 一个文件重复生成的小工具[附源码]

Delphi多线程程序示例（最简单的多线程）

Delphi idpop3收邮件

Delphi文本加密解密

Delphi 查看内存数据的函数

Delphi的串口通讯，数据接收实时性太差

Delphi 跨平台获取文件列表

Delphi四舍五入问题解决

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

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