Problem mit entfernen von ListBox einträgen

[DeddyH]

Ich glaube, hier geht es nur um das "Switchen" eines Buttons. Da gibt es IMO 2 Möglichkeiten je nach Einstellung von Multiselect.
Wenn MultiSelect eingeschaltet ist:

Delphi-Quellcode:

procedure Tf_ereignis.ereignis_listClick(Sender: TObject);
begin
  b_loeschen.Enabled:=ereignis_list.SelCount > 0;
end;

Ansonsten:

Delphi-Quellcode:

procedure Tf_ereignis.ereignis_listClick(Sender: TObject);
begin
  b_loeschen.Enabled:=ereignis_list.ItemIndex > -1;
end;