- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
我通过分配WM_PASTE
属性来拦截和禁止TDBEdit
消息,如WindowProc
中所述。
在按Ctrl + V后,尽管截取了WM_PASTE
,但数据集的状态仍从dsBrowse
变为dsEdit
。
为什么会发生这种情况,我该如何避免呢?
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, DBCtrls, StdCtrls, Mask, DB, DBClient;
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
FPrevWindowProc : TWndMethod;
procedure MyWindowProc(var AMessage: TMessage);
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
var
Dst : TClientDataSet;
Dsc : TDataSource;
Fld : TField;
Nav : TDBNavigator;
Edt : TDBEdit;
begin
//dataset
Dst := TClientDataSet.Create(Self);
Dst.FieldDefs.Add('TEST', ftString, 20);
Dst.CreateDataSet();
Dst.Active := True;
Fld := Dst.Fields[0];
Dst.Append();
Fld.AsString := 'test';
Dst.Post();
//datasource
Dsc := TDataSource.Create(Self);
Dsc.DataSet := Dst;
//navigator
Nav := TDBNavigator.Create(Self);
Nav.DataSource := Dsc;
Nav.Top := 3;
Nav.Left := 3;
Nav.Parent := Self;
//editor
Edt := TDBEdit.Create(Self);
Edt.DataSource := Dsc;
Edt.DataField := Fld.FieldName;
Edt.Top := 31;
Edt.Left := 3;
Edt.Parent := Self;
FPrevWindowProc := Edt.WindowProc;
Edt.WindowProc := MyWindowProc;
end;
procedure TForm1.MyWindowProc(var AMessage: TMessage);
begin
if(AMessage.Msg = WM_PASTE) then
begin
ShowMessage('WM_PASTE, exit!');
Exit;
end;
FPrevWindowProc(AMessage);
end;
end.
最佳答案
使用Remy对链接的问题的答案中的插入器类解决方案,如果您为DataSet创建一个BeforeEdit
处理程序并在其中放置一个断点,则您会发现断点在输入插入器的WMPaste()
方法之前跳闸了。
如果随后从BeforeEdit
处理程序中进行跟踪,则最终将到达TDBEdit.KeyPress()
,其中(在D7中)包含以下代码:
procedure TDBEdit.KeyPress(var Key: Char);
begin
inherited KeyPress(Key);
if (Key in [#32..#255]) and (FDataLink.Field <> nil) and
not FDataLink.Field.IsValidChar(Key) then
begin
MessageBeep(0);
Key := #0;
end;
case Key of
^H, ^V, ^X, #32..#255:
FDataLink.Edit;
#27:
begin
FDataLink.Reset;
SelectAll;
Key := #0;
end;
end;
end;
dsEdit
看到
FDataLink.Edit()
字符,因此通过调用
KeyPress()
将DataSet置于
^V
状态。
KeyPress()
来实现所需的行为。以下内容将防止按
^V
产生任何效果:
type // This can be in your Form's unit but must go before your Form's type declaration
TDBEdit = class(DBCtrls.TDBEdit)
procedure WMPaste(var Message: TMessage); message WM_PASTE;
procedure KeyPress(var Key: Char); override;
end;
[...]
procedure TDBEdit.WMPaste(var Message: TMessage);
begin
if not (Message.Msg = WM_PASTE) then
inherited;
end;
procedure TDBEdit.KeyPress(var Key: Char);
begin
case Key of
^V : Key := #0;
end; { case }
inherited;
end;
关于delphi - 为什么抑制WM_PASTE后数据集的状态变为dsEdit?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/57694135/
我正在通读 Windows Phone 7.5 Unleashed,有很多代码看起来像这样(在页面的代码隐藏中): bool loaded; protected override void OnNav
在cgi服务器中,我这样返回 print ('Status: 201 Created') print ('Content-Type: text/html') print ('Location: htt
我正在查看 esh(easy shell)的实现,无法理解在这种情况下什么是 22 和 9 信号。理想情况下,有一个更具描述性的常量,但我找不到列表。 最佳答案 信号列表及其编号(包括您看到的这两个)
我的Oozie Hive Action 永远处于运行模式。 oozie.log文件中没有显示错误。
我正在编写一个使用 RFCOMM 通过蓝牙连接到设备的 Android 应用程序。我使用 BluetoothChat 示例作为建立连接的基础,大部分时间一切正常。 但是,有时由于出现套接字已打开的消息
我有一个云调度程序作业,它应该每小时访问我的 API 以更新一些价格。这些作业大约需要 80 秒才能运行。 这是它的作用: POST https://www.example.com/api/jobs/
我正在 Tomcat 上访问一个简单的 JSP 页面: 但是当我使用 curl 测试此页面时,我得到了 200 响应代码而不是预期的 202: $ curl -i "http://localhos
有时 JAR-RS 客户端会发送错误的语法请求正文。服务器应响应 HTTP status 400 (Bad Request) , 但它以 HTTP status 500 (Internal Serve
我正在尝试通过 response.send() 发送一个整数,但我不断收到此错误 express deprecated res.send(status): Use res.sendStatus(sta
我已经用 Excel 和 Java 做过很多次了……这次我需要用 Stata 来做,因为保存变量更方便'labels .如何将 dataset_1 重组为下面的 dataset_2? 我需要转换以下
我正在创建一个应用程序,其中的对象具有状态查找功能。为了提供一些上下文,让我们使用以下示例。 帮助台应用程序,其中创建作业并通过以下工作流程移动: 新 - 工作已创建但未分配 进行中 - 分配给工作人
我想在 Keras 中运行 LSTM 并获得输出和状态。在 TF 中有这样的事情 with tf.variable_scope("RNN"): for time_step in range
有谁知道 Scala-GWT 的当前状态 项目? 那里的主要作者 Grzegorz Kossakowski 似乎退出了这个项目,在 Spring 中从事 scalac 的工作。 但是,在 interv
我正在尝试编写一个 super 简单的 applescript 来启动 OneDrive App , 或确保打开,当机器的电源设置为插入时,将退出,或确保关闭,当电源设置为电池时。 我无法找到如何访问
目前我正在做这样的事情 link.on('click', function () { if (link.attr('href') !== $route.current.originalPath
是否可以仅通过查看用户代理来检测浏览器上是否启用/禁用 Javascript。 如果是,我应该寻找什么。如果否,检测用户浏览器是否启用/禁用 JavaScript 的最佳方法是什么 最佳答案 不,没有
Spring 和 OSGi 目前的开发状况如何? 最近好像有点安静了。 文档的最新版本 ( http://docs.spring.io/osgi/ ) 来自 2009 年。 我看到一些声明 Sprin
我正在从主函数为此类创建一个线程,但即使使用 Thread.currentThread().interrupt() 中断它,输出仍然包含“Still Here”行。 public class Writ
为了满足并发要求,我想知道如何在 Godog 中的多个步骤之间传递参数或状态。 func FeatureContext(s *godog.Suite) { // This step is ca
我有一个UIButton子类,它不使用UIImage背景,仅使用背景色。我注意到的一件事是,当您设置按钮的背景图像时,有一个默认的突出显示状态,当按下按钮时,该按钮会稍微变暗。 这是我当前的代码。
我是一名优秀的程序员,十分优秀!