[XE5]: ChecklistBox mit Mehrfachauswahl sicher abfragen

[Kralle]

Moin,

mittels

Delphi-Quellcode:

procedure TFrameTechDaten.chklst_TechDatenClick(Sender: TObject);
begin
 if chklst_TechDaten.Selected[10] = True then
   lbledt_Wirkungsgrad.Enabled:=True
 else
   lbledt_Wirkungsgrad.Enabled:=False;

end;

lässt sich leider nicht sicher abfragen ob der Eintrag wirklich checked ist oder nicht.
Der Grund steht in der OH:

Zitat:

Ein Eintrag gilt als ausgewählt, wenn der Benutzer ihn markiert. Wenn Sie die Eigenschaft MultiSelect auf true setzen, können mehrere Einträge des Listenfeldes ausgewählt werden. In diesem Fall wird der von Selected angegebene Eintrag aktiviert, wenn das Listenfeld den Fokus erhält.

Folge: Auch wenn der Eintrag checked ist, bleibt das Edit nicht anwählbar, bis der Focus wieder auf dem checked Item liegt.

Wie frage ich also sicher den Status eines Items ab?

Gruß Heiko

[Sir Rufo]

Irgendwie nicht so schwierig, gell?

TCheckListBox.Checked vs. TCheckListBox.Selected

BTW das hier

Zitat von Kralle:

Delphi-Quellcode:

procedure TFrameTechDaten.chklst_TechDatenClick(Sender: TObject);
begin
 if chklst_TechDaten.Selected[10] = True then
   lbledt_Wirkungsgrad.Enabled:=True
 else
   lbledt_Wirkungsgrad.Enabled:=False;
end;

geht ja einfacher und insgesamt lesbarer so

Delphi-Quellcode:

procedure TFrameTechDaten.chklst_TechDatenClick(Sender: TObject);
begin
 lbledt_Wirkungsgrad.Enabled := chklst_TechDaten.Selected[10];
end;

[Kralle]

Guten Morgen Sir Rufo,

Zitat von Sir Rufo:

TCheckListBox.Checked vs. TCheckListBox.Selected

Aua, ich glaube es war heute Morgen zu früh.

Zitat von Sir Rufo:

geht ja einfacher und insgesamt lesbarer so

Delphi-Quellcode:

procedure TFrameTechDaten.chklst_TechDatenClick(Sender: TObject);
begin
 lbledt_Wirkungsgrad.Enabled := chklst_TechDaten.Selected[10];
end;

Stimmt sieht übersichtlicher aus.

Gruß Heiko