DELPHI Edit.OnExit by选项卡，显示焦点错误的窗口结果
我遇到以下情况的问题： 2编辑的 在Edit1中键入内容，然后按TAB键，焦点转到Edit2 Edit1.OnExit->显示带有消息处理的表单。。。进行冗长的验证 表单关闭后，Edit2上的焦点似乎崩溃了。。。 -未选择Edit2中的孔文字 -卡雷特没有闪光 例如： 创建一个新表单 放2个编辑 在Edit1中将此设置为OnExit事件：DELPHI Edit.OnExit by选项卡，显示焦点错误的窗口结果,delphi,Delphi,我遇到以下情况的问题： 2编辑的 在Edit1中键入内容，然后按TAB键，焦点转到Edit2 Edit1.OnExit->显示带有消息处理的表单。。。进行冗长的验证 表单关闭后，Edit2上的焦点似乎崩溃了。。。 -未选择Edit2中的孔文字 -卡雷特没有闪光 例如： 创建一个新表单 放2个编辑 在Edit1中将此设置为OnExit事件： procedure TForm1.Edit1Exit(Sender: TObject); begin with TForm.CreateNew(self)
procedure TForm1.Edit1Exit(Sender: TObject);
begin
with TForm.CreateNew(self) do
try
Width := 100;
Height := 50;
Position := poMainFormCenter;
show;
sleep(200);
finally
Free;
end;
end;
我不确定这里到底发生了什么，但看起来消息处理的顺序有点混乱。不要用Free杀死你的另一个表单，使用Release，焦点将按照你的意愿运行
另一个选项是使用ShowModal而不是Show。通常，您以模式显示处理对话框，因为您不希望用户在处理时修改主窗体。如果你这样做了，你就可以继续免费使用了。我不确定这里到底发生了什么，但看起来信息处理的顺序有点混乱。不要用Free杀死你的另一个表单，使用Release，焦点将按照你的意愿运行
另一个选项是使用ShowModal而不是Show。通常，您以模式显示处理对话框，因为您不希望用户在处理时修改主窗体。如果你这样做了，你就可以继续免费使用。这是一个已知的问题。Windows在上次焦点更改完成之前更改焦点时会出现问题，例如，焦点开始从Edit1更改为Edit2，但Edit1.OnExit会将焦点更改为另一个控件或窗体 例如，当应用程序尝试在OnExit事件中进行验证，然后在验证失败时尝试将焦点返回到原始控件时，就会发生这种情况 最简单的解决方案是将消息发布到OnExit中的表单句柄，并在那里处理所需的焦点更改。一旦目标控件获得输入焦点，它就会触发，Windows不会感到困惑
const
UM_EDIT1_EXITED = WM_USER + 1;
type
TForm1=class(TForm)
...
private
procedure UMEdit1Exited(var Msg: TMessage); message UM_EDIT1_EXITED;
end;
implementation
procedure TForm1.Edit1Exit(Sender: TObject);
begin
PostMessage(Handle, UM_EDIT1_EXITED, 0, 0);
end;
procedure TForm1.UMEdit1Exited(var Msg: TMessage);
begin
// Show your other form here
end;
这是一个已知的问题。Windows在上次焦点更改完成之前更改焦点时会出现问题，例如，焦点开始从Edit1更改为Edit2，但Edit1.OnExit会将焦点更改为另一个控件或窗体 例如，当应用程序尝试在OnExit事件中进行验证，然后在验证失败时尝试将焦点返回到原始控件时，就会发生这种情况 最简单的解决方案是将消息发布到OnExit中的表单句柄，并在那里处理所需的焦点更改。一旦目标控件获得输入焦点，它就会触发，Windows不会感到困惑
const
UM_EDIT1_EXITED = WM_USER + 1;
type
TForm1=class(TForm)
...
private
procedure UMEdit1Exited(var Msg: TMessage); message UM_EDIT1_EXITED;
end;
implementation
procedure TForm1.Edit1Exit(Sender: TObject);
begin
PostMessage(Handle, UM_EDIT1_EXITED, 0, 0);
end;
procedure TForm1.UMEdit1Exited(var Msg: TMessage);
begin
// Show your other form here
end;