我给form1.treeview加了chang事件，里面有form2.show语句。但是form2出现后一闪一下就到form1后面去了，我该怎么样使得点击treeview的x节

Question

procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);
begin
case node.AbsoluteIndex of
  0: form2.show;
  1: form3.show;
  2: form5.show;
  {....}
end;
end;

Answer 1

是不是你在Form2的OnShow 事件中写了
Close;等代码?

Answer 2

没有我用其它方法解决了，change事件执行完毕会收回focus，但是click不会，我把代码加在click事件中就可以了。谁给个好的启动窗口的代码？我把这题的分给他啊，我的程序窗口多，不用延时。有没有进度条无所谓还有就是我做的是数据库程序，怎么使那个database login不出现啊？
我用bde->odbc->sql2000

Answer 3

好了，我知道了，
应改为
form2.formstyle:=fmstayontop;
from2.show;

Answer 4

login不出现，将database的loginprompt设为false就可以了

Answer 5

1.打开“Project”菜单的“Options”，出现对话框
2.单击“Forms”选项卡，把“form1”移到“Available forms”中去，点“OK”
3.设置form1的属性，如去掉标题栏等
4.打开“Project”菜单的“View source”，弹出项目文件“Project1.dpr”编辑器的内容
5.插入如下的代码（在begin、end.之间）:
//----------中国创造------------------
Application.Initialize;
form1:=Tform1.Create(Application);
form1.Show;
form1.Update;
Application.CreateForm(Tform2, form2);
form1.Hide;
form1.Free;
Application.Run;
//----by (Great)SuperYoyoNC-------------