Delphi SendTextMessage 等方便的消息发送函数

本文整理自网络，侵删。

 SendTextMessage 等方便的消息发送函数
突然发现 Message 单元的最后给提供了几个方便的消息发送函数:SendTextMessage、SendStructMessage、SendGetStructMessage、SendGetIntMessage
虽然函数实现的很简单, 但用他们发送文本、结构和整数, 的确方便了不少; 下面仅就 SendTextMessage 举例:
//例子是通过发送消息的方法给 Edit 赋值:unit Unit1;
interface
uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls;
type  TForm1 = class(TForm)    Edit1: TEdit;    Button1: TButton;    Button2: TButton;    Button3: TButton;    Button4: TButton;    procedure Button1Click(Sender: TObject);    procedure Button2Click(Sender: TObject);    procedure Button3Click(Sender: TObject);    procedure Button4Click(Sender: TObject);  end;
var  Form1: TForm1;
implementation
{$R *.dfm}
//使用传统的 SendMessageprocedure TForm1.Button1Click(Sender: TObject);var  str: string;begin  str := '万一1';  SendMessage(Edit1.Handle, WM_SETTEXT, 0, Integer(PChar(str)));end;
//使用 VCL 的 Performprocedure TForm1.Button2Click(Sender: TObject);var  str: string;begin  str := '万一2';  Edit1.Perform(WM_SETTEXT, 0, Integer(PChar(str)));end;
//使用 SendTextMessage 的确方便procedure TForm1.Button3Click(Sender: TObject);var  str: string;begin  str := '万一3';  SendTextMessage(Edit1.Handle, WM_SETTEXT, 0, str);end;
//SendTextMessage 也可接受字符串常数procedure TForm1.Button4Click(Sender: TObject);begin  SendTextMessage(Edit1.Handle, WM_SETTEXT, 0, '万一4');end;
end. 

相关阅读 >>

Delphi 显示选择文件夹对话框 (有新建按钮)

Delphi��image存入读取mysql数据库

Delphi record，两种声明方式

Delphi 让label 始终在form的正中显示

Delphi 注册表启动项管理代码

Delphi sysutils.strcopy、sysutils.strecopy

Delphi 10.3.1新的变量的声明方法

Delphi hash md5

Delphi 建立access数据库

Delphi中datetimepicker组件介绍

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