Рисование Эдита, чтобы была видна каретка.

[Zeraim]

Рисую эдит на дискриптор другого приложения, вопрос вот в чём:
Как сделать чтобы каретка тоже показывалась (палочка мигающая)?

Рисую в потоке, и всё это дело периодически промигивает, если буду рисовать на эдите думаю всё мигать станет еще хуже =\\ Да к тому же я без понятия как рисовать на эдите в нужном месте эту палочку 8)

По инету и форуму полазил, но ничего даже отдалённо похожего не заметил =\\

[RUSt88]

как-то писал компонент и мне нужно было, чтоб не показывался мигающий курсор, сделал так:

procedure WMPaint(var Msg: TMessage); message WM_PAINT;
    procedure WMSetFocus(var Msg: TMessage); message WM_SETFOCUS;
    procedure WMNCHitTest(var Msg: TMessage); message WM_NCHITTEST;

эти сообщения нужно перехватывать, так вот мне не нужна каретка была и я воспользовался апи функцией
HideCaret(Handle);
есть соответств ShowCaret(HWND)
посмотри еще это
CreateCaret, DestroyCaret, GetCaretPos, HideCaret, SetCaretPos

или можно поставить событие на таймер и рисовать\стирать на контроле простую линию нужного размера
рисовать просто - получаем dc контрола (GetDC(handle)), получаем длину текста в пикселах (не помню ща апи функцию), и рисуем линию на на полученной позиции (MoveToEx по-моему)

[Zeraim]

Хм попробую, но где то я читал что Эдит со своей кареткой работает сам, и вполне вероятно сторонними способами не поможет =\\ Спасибо в общем.

[BOBAH13]

Думаю наведет на верный путь/мысль этот материал