Event herausfinden

[Sharky]

Oder das ActiveControl auswerten:

Delphi-Quellcode:

procedure TForm1.MachWas(Sender: TObject);
begin
  if (ActiveControl = Sender) then
  begin
    ShowMessage ('On Enter');
  end
  else
  begin
    ShowMessage ('On Exit');
  end;
end;

procedure TForm1.Edit1Enter(Sender: TObject);
begin
  MachWas (Sender);
end;

procedure TForm1.Edit1Exit(Sender: TObject);
begin
  MachWas (Sender);
end;