Сделать ссылку с возможностью выделения

[fezilk25]

Здравствуйте

нужно сделать ссылку на сайт, которую можно было бы выделить и скопировать. понятно, что label в этом случае не подойдет, а если взять Edit, то выделять можно, но после отпускания лкм все-равно произойдет переход по ссылке (onClick).
может быть есть подходящий компонент?

[3D Hunter]

может лучше использовать тот же Label с PopupMenu с пунктом "Скопировать в буфер"? тоже логично смотрится, и выделять не нужно, щелкнул и скопировал.

[chertovich]

Может LinkLabel? Если у вас конечно новая среда разработки

[fezilk25]

Сделал обычный label, клик - переход, Ctrl+клик - копировать в буфер.
вдруг кому-нибудь понадобится:

function CtrlDown : Boolean;
var
  State : TKeyboardState;
begin
  GetKeyboardState(State);
  Result := ((State[vk_Control] and 128) <> 0);
end;

procedure TForm1.l240Click(Sender: TObject);  //label onclick
begin
  if CtrlDown then
    Clipboard.SetTextBuf(PChar(l240.Caption))
  else
    ShellExecute(0,'Open',Pchar(l240.Caption),nil,nil,SW_SHOW);
end;

[Пепел Феникса]

я бы на вашем месте использовал OnMouseUp там больше возможностей развернуться.

[Аватар]

procedure TForm1.Edit1Click(Sender: TObject);
begin
  if (Edit1.SelText='') and (Trim(Edit1.Text)<>'') 
    then <переход по ссылке>;
end;

ADD

А вообще для перехода по ссылке лучше OnDblClick