Как изменить курсор в мемо?

[troyan32]

Стандартно курсор в мемо вертикальная черта. А как сделать её горизонтальной, как например в командной строке? Если с мемо это не получится сделать, то можно и с RichEdit.

[Stilet]

По-моему такое можно сделать только поменяв тему в Винде.
ИМХО вид курсора как раз определяется темами.

[eduard93]

Можно через WinAPI:

//...
const
  UM_CREATECARET = WM_USER + 1;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    //...
    procedure FormDestroy(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Memo1Enter(Sender: TObject);
    procedure Memo1Exit(Sender: TObject);
  private
    procedure UMCreateCaret(var msg: TMessage); message UM_CREATECARET;
    bmp: TBitmap;
  public
    { Public declarations }
  end;

//...

procedure TForm1.FormDestroy(Sender: TObject);
begin
  bmp.Free;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  bmp := TBitmap.Create;
  bmp.Canvas.Brush.Color := clGreen;
  bmp.Height := 15;
  bmp.Width := 5;
end;

procedure TForm1.Memo1Enter(Sender: TObject);
begin
  PostMessage(Handle, UM_CREATECARET, 0, 0);
end;

procedure TForm1.Memo1Exit(Sender: TObject);
begin
  DestroyCaret;
end;

procedure TForm1.UMCreateCaret(var msg: TMessage);
begin
  CreateCaret(memo1.Handle, bmp.Handle, 15, 5);
  ShowCaret(Memo1.Handle);
end;

[troyan32]

Код делает курсор толстым и розовым. А я хочу вот такой - "_".

[eduard93]

Нарисуйте какой вам нужен. Код перед вами - экспериментируйте.