将Frame上的控件转移到form上出现的闪烁问题

将Frame上的控件转移到form上出现的闪烁问题 [已结帖,结帖人:luincnyou]

luincnyou
啃葡萄啊啃啊~~~
等级:
可用分等级：贫农
总技术分：139
总技术分排名：74823
结帖率：100.00%

发表于：2008-08-18 18:05:26 楼主

我建立了一个Frame，名为frmTool，我的主窗口名为frmMain。我想实现点击lblTool（一个Label控件）后将frmTool动态载入，然后将frmTool上的所有控件转移到主窗口中。
以下代码可以正常工作。开发、运行环境：Windows Vista+Delphi 2007
可是却出现了奇怪的问题：
1：如果frmTool中有TMemo的话，将这个memo转移到主窗口后，用鼠标来回划过memo的边缘，memo的边框比正常时的粗（没有用过Vista的可能不太清楚，在Vista下，用鼠标划过memo/edit的边缘，边缘会有暂时变成蓝色并稍微加粗的效果，此处说的“比正常时的粗”的“正常”就是指此）。
2.转移后的TListView和TSpeedButton控件用鼠标在上面来回划过的话会出现明显的闪烁。
3.在frmTool上PageControl控件的第一页中如果有TButton或TBitbtn的话，点击lblTool后整个主窗口会闪烁一下（事实上我的程序中还有其它的Frame，这个问题在其它Frame中并不存在，不知道为什么），如果是TSpeedButton则正常（我猜想这是由于TSpeedButton继承自TControl而不是TWinControl的缘故，但不知道是为什么）。
我觉得这三个问题都是由一个问题引起的，但不知道是什么原因。问题有点麻烦，希望大牛们能够费心看一下，谢谢！

代码附下：

Delphi(Pascal) code


type
  TMyFrame = class of TFrame;
...
点击lblTool后：
procedure TfrmMain.lblToolClick(Sender: TObject);
var
  i: integer;
begin
//载入TfrmTool（frmTool是之前建立的Frame）
  if LoadFrameByClassName(TfrmTool) then
  begin
//循环将frmTool上的所有控件的Parent设成frmMain
//注：下面的Ffrm定义在TfrmMain中：Ffrm: TFrame;在LoadFrameByClassName中赋予Ffrm的值;
    for i := Ffrm.ControlCount - 1 downto 0 do
      Ffrm.Controls[i].Parent := frmMain;
  end;
end;

//LoadFrameByClassName函数：返回True为建立成功
function TfrmMain.LoadFrameByClassName(FrameClassName: TMyFrame): boolean;
begin
  Result := False;
  if Assigned(Ffrm) then
    FreeAndNil(Ffrm);

  Ffrm := FrameClassName.Create(self);
//设Ffrm为不可见，因为要的是Ffrm中的控件，Ffrm本身没有用
  Ffrm.Visible := False;
  Result := True;
end;

问题点数：100 回复次数：7 修改删除举报引用回复

procedure TfrmMain.lblToolClick(Sender: TObject); var i: integer; begin SendMessage(Handle, WM_SETREDRAW, 0, 0); //载入TfrmTool（frmTool是之前建立的Frame） if LoadFrameByClassName(TfrmTool) then begin //循环将frmTool上的所有控件的Parent设成frmMain //注：下面的Ffrm定义在TfrmMain中：Ffrm: TFrame;在LoadFrameByClassName中赋予Ffrm的值; for i := Ffrm.ControlCount - 1 downto 0 do Ffrm.Controls[i].Parent := frmMain; end; SendMessage(Handle, WM_SETREDRAW, 1, 0); Invalidate; end;