Code:
procedure TFrame3.ListBox1Click(Sender: TObject);
var i:byte;
begin
for i := 0 to (ListBox1.Items.Count - 1) do begin
try
if ListBox1.Selected[i] then
begin
if ListBox1.Items.Strings[i] = 'BRAUN' then
begin
Label1.Color:=clMaroon;
end;
end;
finally
end;
end;
Nun habe ich damit folgende Probleme:
1. Wenn man z.B. "BRAUN" in der Liste anklickt,
wird das Label zwar braun, aber wenn man wieder "BRAUN"
anwählt, wird es ja un-makiert, und bekommt den vorherigen wert.
2. Wenn man in die Listbox klickt, neben den text,
so scrollt die listbox ganz nach unten.
3. Wurde der erste wert in der listbox makiert (aktiviert)
und makiere ich dann den 2ten wert, so kann ich nur noch nachfolgende
Werte makieren aber nicht mehr der 1ste.. also das is auch bei 2ten und 3ten...also ich kann vorige einträge zwar makieren, aber es passiert nichts mehr
Den code oben habe ich nicht selbst geschrieben,
den hab ich irgendwo gefunden, un da er nicht das macht,
was ich gerne möchte... denke ich es gibt bestimmt noch
eine ganz andere möglichkeit aktionen aus zu führen,
wenn man einträge in der listbox makiert!?
bin für jede hilfe dankbar
gruß
DH