Status eines Buttons abfragen

[BerndS]

Hallo mit

Delphi-Quellcode:

  
procedure TForm1.e1Exit(Sender: TObject);
begin
  if Screen.ActiveControl = btCancel then
    exit
  else
    ...;
end;

könnte man das erreichen.