【结贴】初始化运行不执行的代码**

拓思科技

以下代码在初始化运行的时候就不好用了？
procedure TRZXXCD.BizFormCreate(Sender: TObject);
begin
     OrgComboBox1.BizTreeView.Constraints.MinWidth := 300;
end;
procedure TRZXXCD.OrgComboBox1Enter(Sender: TObject);
begin
    //OrgComboBox1.BizTreeView.Width := 300;
    OrgComboBox1.BizTreeView.Constraints.MinWidth := 300;
end;

procedure TRZXXCD.OrgComboBox1Click(Sender: TObject);
begin
    OrgComboBox1.BizTreeView.Constraints.MinWidth := 300;
end;

procedure TRZXXCD.ocbBtshow(Sender: TObject);
begin
    OrgComboBox1.BizTreeView.Constraints.MinWidth := 300;
end;

procedure TRZXXCD.BizFormActivate(Sender: TObject);
begin
OrgComboBox1.BizTreeView.Constraints.MinWidth := 300;
end;

procedure TRZXXCD.BizFormShow(Sender: TObject);
begin
OrgComboBox1.BizTreeView.Constraints.MinWidth := 300;
end;

jiahaiming

楼主，你是怎么发现这些代码不执行的？
有没有设置断点？

拓思科技

有 都过了，但是最小宽度并没有变化

jiahaiming

能贴图描述一下吗？

拓思科技

上面是直接执行的效果，下面是从初始化执行的效果，每一个都是这样

Akon

楼主,有可能是这样的,OrgComboBox1画的宽度动作是你1楼的这些事件之后,比如FormCreate之后,再去画的,那时你去他设OrgComboBox1的宽度没用

拓思科技

那我该怎么办呢，在什么时间里面写才能确定好用？
procedure TRZXXCD.OrgComboBox1Click(Sender: TObject);
begin
    OrgComboBox1.BizTreeView.Constraints.MinWidth := 300;
end;
这个也不好用是为什么啊

Akon

楼主,可以用以下方法 在窗体上加一个TTimer

procedure TMainForm.Timer1Timer(Sender: TObject);
begin
  if not (OrgComboBox1.BizTreeView.Constraints.MinWidth = 300) then
  begin
    OrgComboBox1.BizTreeView.Constraints.MinWidth := 300;
    OrgComboBox1.BizTreeView.Width := 300;
    Timer1.Enabled := False;
  end;
end;

procedure TMainForm.OrgComboBox1Enter(Sender: TObject);
begin
  Timer1.Enabled := True;
end;

拓思科技

procedure TRZXXCD.OrgComboBox1Enter(Sender: TObject);
begin
    //OrgComboBox1.BizTreeView.Width := 300;
    OrgComboBox1.BizTreeView.Constraints.MinWidth := 300;
end;
奇怪啊 这句怎么就不好用啊？

jiahaiming

代码执行的时机不对。
楼主用8楼方法就可以了。