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?!