Link in Richedit darstellen

[Akut-Programming]

Dießer Thread entstand wegen eines anderen Themas.

Also ich habs jetzt mal probiert, nur so ganz wills nicht, selbst wenn ich text markieren will macht er dann das ShellExecute Ich habs wahrscheinlich im falschen ereignis.. Hier ist mal mein Code.. (ist momentan Testanwendung)

Markierten Text als Link anzeigen:

Delphi-Quellcode:

procedure TForm1.Button6Click(Sender: TObject); 
var 
   i: integer; 
begin 
    for i:=0 to RichEdit1.SelLength 
    do begin 
         RichEdit1.SelAttributes.Color:=clBlue; 
         RichEdit1.SelAttributes.Style := RichEdit1.SelAttributes.Style + [fsUnderline]; 
    end; 
end;

Wenn man mit der Maus über dem String ist, dann soll der Cursor gewechselt werden..

Delphi-Quellcode:

procedure TForm1.RichEdit1MouseMove(Sender: TObject; Shift: TShiftState; X, 
  Y: Integer); 
begin 
  if (x=1) and (y=10) 
  then begin 
   RichEdit1.Cursor:= crHandPoint; 
  end; 
end;

Beim anklicken, Link öffnen:

Delphi-Quellcode:

procedure TForm1.RichEdit1MouseDown(Sender: TObject; Button: TMouseButton; 
  Shift: TShiftState; X, Y: Integer); 
begin 
     if (RichEdit1.SelStart=0) 
     then begin 
      shellexecute(Application.handle, 'open', 'http://www.small-soft.com', nil, nil, SW_ShowNormal); 
     end; 
end;

Welche Ereignisse sollte ich am besten verwenden?? Oder hättet ihr mal den Link zu dem Beitrag in der DP, den himitsu meinte, damit ich mir das mal angucken kann?!

[API]

Hi,

Schau mal hier:
http://www.swissdelphicenter.ch/de/showcode.php?id=1505