Topic: Why does a email llink only show up when you first type it in?
I used some code that I found here to make a email link look like a link (blue underlined link). However, the blue underlined link is not saved and the next time the blue underlined link is gone. It shows up as plain text. And the email address still works when you doubleclick it.
But the link comes back if you move the cursor to the beginning or end of the text.I don't understand what's going on. with this behavior. Here's the code that is used for the link..
procedure Form1_Edit1_OnKeyUp (Sender: string; var Key: Word; Shift, Alt, Ctrl: boolean);
begin
if Pos('@', Form1.Edit1.Text)>0 then
begin
Form1.Edit1.Cursor := crHandPoint;
Form1.Edit1.Font.Style:=fsUnderline;
Form1.Edit1.Font.Color := clHotLight;
end else
begin
Form1.Edit1.Cursor := crDefault;
Form1.Edit1.Font.Style:=0;
Form1.Edit1.Font.Color := clDefault;
end;
end;
begin
begin
frmMain.mniAbout.Visible := False;
frmMain.mniOptions.Visible := False;
frmMain.mniFile.Visible := False;
end;
end.
Is there anything I can do to save the appearance of a link in the database?
thanks a lot...
Scott Adams