盒子论坛 v2.1

想要在treeview中实现个功能，即当用户在点中某个列表内容之后，如果选择否，则自动调到其他的内容条上，并执行此内容条上响应的onchange功能。问题在于这个onchange始终要点击2次否之后才会执行。代码如下
          IDCANCEL:
          begin
          TreeView1Change(TreeView1, TreeView1.Items[0]);
          TreeView1.Select(TreeView1.Items[0]);

那位大哥帮忙指点下啊。
----------------------------------------------
-

作者：

arhaha (lin)	★☆☆☆☆	-
	盒子活跃会员

2020/1/5 8:54:00

1楼：

感觉我这个人有一个强迫症倾向，看到问的问题描述很是不清，或者错字连篇的，就不会有想去帮其回答的心情。这真的是一种毛病？或者我现在跟贴了，是不是已经在克服这个毛病的路上了

----------------------------------------------
-

作者：

emailx45 (emailx45)	▲▲▲▲△	-
	普通会员

2020/1/5 10:08:11

2楼：

Here my code to "access" my FRAMES using OnCLICK on TreeView selection:

use like you want!!! if need use ONChange the logic can be the same or different!

procedure TfrmFormMainExec.tvMyFramesInfoClick(Sender: TObject);
var
  lMyTreeNodeSelected: TTreeNode;
  lMyFrameSelected: TFrame;
  lMyComponentInTheFrame: TComponent;
  //...
begin
  //
  lMyTreeNodeSelected := (Sender as TTreeView).Selected;
  //
  if (lMyTreeNodeSelected <> nil) then
  begin
    if (lMyTreeNodeSelected.Data <> nil) and (TObject(lMyTreeNodeSelected.Data).InheritsFrom(TFrame)) then
    begin
      lMyFrameSelected := TFrame(TObject(lMyTreeNodeSelected.Data));
      // find by "Class"
      lMyComponentInTheFrame := fncFindMyFirstComponentType(lMyFrameSelected, TMaskEdit); // grdpnlOnTheForm.FindComponent('Edit1')
      //
      if (lMyComponentInTheFrame <> nil) then
      begin
        TEdit(lMyComponentInTheFrame).SetFocus;
        TEdit(lMyComponentInTheFrame).Color := clGreen;
        //
        if (lLastEditFocused <> nil) and (lLastEditFocused <> lMyComponentInTheFrame) then
          lLastEditFocused.Color := clWindow;
        //
        lLastEditFocused := TEdit(lMyComponentInTheFrame);
      end;
      //
      // ShowMessage(Format('%s, is a [Frame]'#13#10'Im on [%s]', [lMyTreeNodeSelected.Text, lMyFrameSelected.Name]));
    end else begin
      if (lLastEditFocused <> nil) then
        lLastEditFocused.SetFocus;
      //
      ShowMessage(lMyTreeNodeSelected.Text + ', This Object is [NIL]');
    end;
  end;
end;
----------------------------------------------
The higher the degree, the greater the respect given to the humblest!RAD 11.3

作者：

zhouying (zy)	★☆☆☆☆	-
	盒子活跃会员

2020/1/6 16:14:02

3楼：

就比如说，想要通过点击一个Button, 来实现原本Treeview1.onchange的事件
----------------------------------------------
-

作者：

zhouying (zy)	★☆☆☆☆	-
	盒子活跃会员

2020/2/17 22:55:24

4楼：

有哪个兄弟知道吗？
----------------------------------------------
-

信息

登陆以后才能回复