Сделать чтобы текст в edit можно было только выделять

[nibufep]

Как сделать чтобы текст в edit можно было только выделять, тоесть чтобы если кликнуть на него на нем не мигал значок этот.

[FaTaL]

Свойство ReadOnly := true

[nibufep]

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

Свойство ReadOnly := true

Это понятно но мигающий значок останется

[NIKOLAYY2]

Ну дак правильно, а че ты хотел, поле- Edit это оконный компонент и он должен получать в свое окно фокус ввода.
На событие OnClick можеш сделать так например, убрать с него фокус куда-нибуть.

procedure TForm1.Edit1Click(Sender: TObject);
begin
  Button1.SetFocus;
end;

[Stilet]

убрать с него фокус куда-нибуть.

Не надо так делать!
Нужно просто описать событие OnEnter, в которое втулить HideCaret(Edit1.Handle);
Это помимо того, что выше FaTaL сказал.

[Dmitry33RU]

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

Не надо так делать!
Нужно просто описать событие OnEnter

Небольшая поправочка, нужно прописывать в MouseEnter.

[Аватар]

OnEnter не поможет
MouseEnter - что?
Ставь на OnMouseDown эдита и ReadOnly:=True
Если False, то еще на OnKeyDown

[kropotkina-alice]

1. Edit1.ReadOnly:=True;
2. Edit1.OnMouseDown и Edit1.OnKeyDown -> Edit1.SelectAll;
Всё.

[Stilet]

нужно прописывать в MouseEnter.

Это что за событие?

OnEnter не поможет

Мой Лазарус с тобой не согласен:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses   windows,
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    procedure Edit1Enter(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Edit1Enter(Sender: TObject);
begin
   HideCaret(Edit1.Handle);
end;

end.

Edit1.SelectAll;

А это еще зачем?

[kropotkina-alice]

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

А это еще зачем?

Вместо того, чтобы задавать лишние вопросы, полезнее попробовать, не так ли?
Для непонятливых поясню - чтобы не было текстового курсора (так хочет ТС)...
З.Ы. А предложенное в вашем ответе не несёт смысловой нагрузки и не выполняет требований ТС...