[poli-smen]

Сообщение от YVitaliy

В onClick'е обрабатывай

Код:

Procedure TForm2.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then 
  begin
   Edit1.BorderStyle:=bsNone;
   Edit1.ReadOnly:=True;
   Edit1.Font.Style:=[fsUnderline];
   Edit1.Font.Color:=clBlue;
   ...........
end;

Ещё можно добавить:

Код:

  Edit1.Cursor := crHandPoint;

А чтобы ещё и руку сделать более человеческой добавить:

Код:

Screen.Cursors[crHandPoint] := LoadCursor (0, IDC_HAND);

Или же можно вместо TEdit использовать TRichEdit который умеет подсвечивать гиперссылки: Подсветить ссылки в TRichEdit