wie kann ein Objekt einer TList seinen Index erfahren

[marabu]

Auch wenn ich keinen Vorteil erkennen kann - bei mir funktioniert das:

Delphi-Quellcode:

procedure TDemoForm.Edit2Change(Sender: TObject);
var
  i: Integer;
begin
  i := ol.IndexOf(Sender);
  if (i > 0) and (ol[Pred(i)] is TEdit) then
    TEdit(ol[Pred(i)]).Text := '???';
end;

Grüße vom marabu