关于有句柄与无句柄控件以及焦点问题

最新推荐文章于 2021-03-21 11:02:30 发布

weixin_30644369

最新推荐文章于 2021-03-21 11:02:30 发布

阅读量243

点赞数

文章标签： ui

原文链接：http://www.cnblogs.com/wind123/p/3958181.html

版权

首先股票软件很多都是在一个MAINFORM里放多个MDI子窗体
OK问题出来了，当我们使用COMBOBOX控件切换指标的时候焦点回不到MDI子窗体里了

怎么办呢，
常规做法是
procedure TfmMain.RzComboBox1Change(Sender: TObject);
begin
MDICHILDFORM.SETFOCUS;
end;
问题出来了，焦点回不去。
procedure TCustomForm.SetFocus;
begin
if not FActive then
begin
if not (Visible and Enabled) then
raise EInvalidOperation.Create(SCannotFocus);
SetWindowFocus;
end;
end;
窗体做了什么？
NOT FACTIVE 下才能焦点设置回窗体

procedure TCustomForm.SetWindowFocus;
var
FocusControl: TWinControl;
begin
if (FActiveControl <> nil) and (FDesigner = nil) then
FocusControl := FActiveControl else
FocusControl := Self;
Windows.SetFocus(FocusControl.Handle);
if GetFocus = FocusControl.Handle then
FocusControl.Perform(CM_UIACTIVATE, 0, 0);
end;

解决方法来了
Windows.SetFocus(FocusControl.Handle);
这句足够了如果有问题加上下边这句，具体干嘛的没查这个消息
FocusControl.Perform(CM_UIACTIVATE, 0, 0);