Question

delphi2010中两个按钮都打开的是同一个form6 form6中要如何设置条件

procedure TForm5.Button2Click(Sender: TObject);
begin
form6.show;
form6.Caption:='新增产品';
end;

procedure TForm5.Button3Click(Sender: TObject);
begin
form6.Show;
form6.Caption:='修改产品';
end;

Answer 1

不能同时打开一个页面两次，
最好是再新建一个页面来修改产品

Answer 2

TForm5定义全局变量 int m=0; if 新增产品' m=1; if 修改产品' m=2;

TForm6; extern int m;
if(m==1)
新增产品' ;
if(m==2)
修改产品' ;
ShowModal

Answer 3

创建一个表，把第一个表作为父类