我在一个Form上放有两个DBGrid,怎样判定焦点是在DBGrid1上或是在DBGrid2上?

Question

我在一个Form上放有两个DBGrid,怎样判定焦点是在DBGrid1上或是在DBGrid2上?

Answer 1

if self.ActiveControl.Name='DBGrid1' then

Answer 2

var
  myGrid: TDBGrid;
begin
  if (ActiveControl is TDBGrid) then
  begin
    myGrid:=(ActiveControl as TDBGridEh);
    if myGrid=DBGrid1  then  ...;
    if myGrid=DBGrid2  then  ...;
  end;  ...end

Answer 3

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if dbgrid1.Focused then showmessage('dbgrid1');
if dbgrid1.focused then showmessage('dbgrid2');
end;