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 10.4 新变化：定制拖管记录（结构）类型

Delphi 打开win8及以上操作系统的系统已安装程序目录

在Delphi中显示gif动画

Delphi listbox模糊查找文字

Delphi winsock 域名获取远程服务器ip

Delphi datasnap 2009的简单使用

Delphi实现线程池组件（完整源码）

Delphi 获取本机 hostname ip address

使用Delphi启动和关闭外部应用程序

Delphi 消息实现窗口最小化，最大化，关闭(Delphi)

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

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