Richedit: Alte Hyperlinks verschwinden

[Neutral General]

Hi,

Habe nen Class-Helper für TRichedit geschrieben mit einer Methode:

Delphi-Quellcode:

procedure TRicheditLink.SelectionToLink;
var CF: TCharFormat;
begin
  FillChar(CF2,SizeOf(CF2),0);       
  CF.cbSize:=SizeOf(CF2);
  CF.dwMask:= CFM_LINK;
  CF.dwEffects := CFE_LINK;
  
  SendMessage(Handle,EM_SETCHARFORMAT,SCF_SELECTION,LParam(@CF));
end;

Soweit, sogut. Allerdings verschwindet Link x-1 beim erstellen von Link x.

Beispiel ('Test' soll "gelinkt" werden)

Delphi-Quellcode:

Add('Test');
// SelectionToLink (mit dem zuletzt hinzugefügten)

Ergebnis

Test

Delphi-Quellcode:

Add('Test');
// SelectionToLink (mit dem zuletzt hinzugefügten)
Add('Test');
// SelectionToLink (mit dem zuletzt hinzugefügten)

Ergebnis

Test
Test

Gibts dazu ne Erklärung + Lösung?