button事件中控制:
application.createform(Tform2,form2);
form2.combobox1.itemindex ;= 2;//itemindex 对应的是你想要显示的东西
...处理当combobox显示为“数学”的事件
form2.showmodal;
application.createform(Tform2,form2);
form2.combobox1.itemindex ;= 2;//itemindex 对应的是你想要显示的东西
...处理当combobox显示为“数学”的事件
form2.showmodal;
解决方案 »
- 如何抓取網頁中input帶出的清單呢(ajax)
- 请教有关"流"的用法
- 窗体显示的问题
- BDE连sqlserver发布的问题,高手指点
- 郁闷的菜鸟:Could not convert variant of type(null) into type(String)?
- SeSkin的控件是属于那个控件包的?
- !!! 类函数和self !!!
- 关于像Winamp具有磁性的可拖动几个窗体的问题
- Delphi面向对象中应用一个很简单的问题,怎样解决
- 我作了一个无标题窗体,让它可以移动,可是,我放在上面的image控件的close事件无效了
- 在哪里才能下载DELPHI5.0完全正式企业版.
- 请教高手一个ado的问题.
table1.Active:=false;
table1.tablenema:='yw';
table1.active:=true;
form2.show;
button2.click事件中写
table1.Active:=false;
table1.tablenema:='sh';
table1.active:=true;
form2.show;
Form2;procedure TForm1.Button1Click(Sender: TObject);
begin
Form2.Show;
Form2.ComboBox1.ItemIndex := 0;
end;procedure TForm1.Button2Click(Sender: TObject);
begin
Form2.Show;
Form2.ComboBox1.ItemIndex := 1;
end;
Unit2; //Form2
studentcjform2.table1.close;
studentcjform2.table1.databasename:='d:\schoolinfo\studentcj\data\';
studentcjform2.table1.tablename:='yw';
studentcjform2.ComboBox1.ItemIndex := 0;
studentcjform2.label16.caption:='语文';
studentcjform2.caption:='语文成绩管理系统';
studentcjform2.table1.open;
其它各科的设计类似,感谢各位