码迷,mamicode.com
首页 > 其他好文 > 详细

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

时间:2014-09-05 17:38:41      阅读:308      评论:0      收藏:0      [点我收藏+]

标签:des   io   使用   ar   for   问题   cti   on   c   

首先 股票软件很多都是在一个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);

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

标签:des   io   使用   ar   for   问题   cti   on   c   

原文地址:http://www.cnblogs.com/wind123/p/3958181.html

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!