Delphi TMessage[5] 未定义的特殊消息:$0118

Delphi TMessage[5] 未定义的特殊消息:$0118

1、$0118 消息特点：

• 此消息只在文本输入类控件(如: TMemo、TEdit)获得焦点时触发，例如，控制输入光标（光标每秒闪烁一次）;
• 此消息每秒发送1次, 和输入光标同步;
• 此消息的方法 WndProc、Dispatch、DefaultHandler 都不能响应，但Application.OnMessage可以响应 

2、示例

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
begin
  if Msg.message = $0118 then
  begin
    Self.Caption := TimeToStr(Now);
  end;
end;

　　

创建时间：2022.05.26　　更新时间：