var Form1: TForm1; sign:string;implementation{$R *.dfm}procedure TForm1.DBGrid1Enter(Sender: TObject); begin sign := '1' ; end;procedure TForm1.DBGrid2Enter(Sender: TObject); begin sign := '2' ; end;procedure TForm1.Button1Click(Sender: TObject); begin if sign = '1' then ... else if sign = '1' then ... end;
Form1: TForm1;
sign:string;implementation{$R *.dfm}procedure TForm1.DBGrid1Enter(Sender: TObject);
begin
sign := '1' ;
end;procedure TForm1.DBGrid2Enter(Sender: TObject);
begin
sign := '2' ;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
if sign = '1' then ...
else if sign = '1' then ...
end;