Problem mit entfernen von ListBox einträgen

[Nuclear-Ping]

Delphi-Quellcode:

procedure Tf_ereignis.ereignis_listClick(Sender: TObject);
begin
 if ereignis_list.Selected[HIER MUSS DER INT WERT REIN] then b_loeschen.Enabled:=True else b_loeschen.Enabled:=False;
end;

Tipp:

Delphi-Quellcode:

procedure Tf_ereignis.ereignis_listClick(Sender: TObject);
begin
  b_loeschen.Enabled := ereignis_list.Selected[ereignis_list.ItemIndex];
  // oder
  // b_loeschen.Enabled := (ereignis_list.SelCount > 0);
end;