alle Strings aus Edit.Text in der ListBox farbig darstellen

[newuser01]

Zitat:

Kannst du etwas genauer erklären, warum die verfügbaren Ereignisse der Komponente TRichEdit dir nicht genügen? Was möchtest du eigentlich erreichen?

Hallo Marabu

TRichEdit hat kein OnClick Ereignis also ich kann bei Richedit nicht die Einträge wie bei der ListBox mit der Maus auswählen. Ich möchte also wie erwähnt jeden einzelnen Eintrag mit der Maus anwählen so das dieser Eintrag makiert ist und dann übernommen werden kann alleine wegen dem löschen schon hier mal ein bischen Code

Delphi-Quellcode:

//das würde zb: nicht so einfach gehen
for i := 0 to lbAusgabe.Items.Count -1 do
begin

     if lbAusgabe.Selected[i] = true then
     begin
     lbWunschliste.Items.Add(lbAusgabe.Items.Strings[i]);
     end;

end;

// oder das
for i := 0 to lbAusgabe.Items.Count -1 do
begin

     if lbAusgabe.Selected[i] = true then
     begin
     sDateiname := lbAusgabe.Items.Strings[i];
     ShellExecute(Handle,'open','C:\Programme\Winamp\winamp.exe',PChar('"' + sDateiname+'"'),'',SW_NORMAL);
     end;

end;

wenn diese Auswahlmöglichkeit auch bei Richedit gehen würde schreib ich sofort alles um aber allein schon Selected[i] geht bei Richedit nicht oder ?


so gute Nacht muss ins bett
Holger