Hi,
Zitat von
Loni:
nun möchte ich die gefundene zeile aber nicht in ein Label übernehmen sondern die zeile direkt in der ListBox zB Rot markiert haben
ich habe dir ein Beispiel angehängt wo du mit Hilfe von Listbox.Tag eine Zeile rot markieren kannst. Dein Code würde ich dann so abbändern:
Delphi-Quellcode:
procedure TForm4.BitBtnSucheClick(Sender: TObject);
begin
Suchwort:=EdSuchen.Text;
l:='';
if LaInXSuchen.Caption='In // Allgemeine Hilfe' then
begin
for i:=1 to Form6.ListBoxHilfeAllgemein.items.count-1 do
if pos(l+Suchwort+l, Form6.ListBoxHilfeAllgemein.items[i-1]) > 0 then
Form6.ListBoxHilfeAllgemein.Tag := Form6.ListBoxHilfeAllgemein.items[i-1];//<--
end;
end;
Oder ansonsten einfach mit
Form6.ListBoxHilfeAllgemein.ItemIndex := Form6.ListBoxHilfeAllgemein.items[i-1];
die Zeile markieren.