问问大家

Question

TForm1=class(TForm)
  ...
  VieworEdit:byte;...procedure TForm1.Button1Click(sender:TObject);
begin
  VieworEdit:=1;
  Form2.Showmodal;
end;procedure TForm1.Button2Click(sender:TObject);
begin
  VieworEdit:=2;
  Form2.Showmodal;
end;Unit2中if Form1.VieworEdit=1 then
  dosomething
else if Form1.VieworEdit=2 then
  do anotherthing;

Answer 1

No.1
  Form2.Edit1.ReadOnly := True;
  Form2.Show;

Answer 2

add in unit1 :uses unit2

Answer 3

主要就是两个窗体互相调用的问题。
unit1加上uses unit2，unit2的implentation后面加上uses unit1