仓库管理软件版1楼: procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);
begin
showmessage(＇＇＇＇);
end;


procedure TForm1.FormShow(Sender: TObject);
begin
TreeView1Change(Sender);/////请问这个地方应如何写
end;

2楼: TreeView1Change有2个参数 如最好的进销存

3楼: procedure TForm1.FormShow(Sender: TObject);
begin
TreeView1Change(Sender);/////这里的Sender指的是TForm1的一个实例：Form1
end;

procedure TForm1.FormShow(Sender: TObject);
begin
TreeView1Change(TreeView1, TreeView1.Selected);/////这么写才对啊！
end;

4楼: TreeView1.OnChange(nil,nil);

5楼: to RJU:
你够狠的，一个nil了还不成，非弄俩nil

6楼: 多人接受答案了。