курсор в Tedit

← →
webpauk © (2009-01-27 17:22) [0]

как поместить начальное размещение курсора, чтобы начало вводимого текста было не сразу за Clientrect.left.
Хочу нарисовать в Tedit картинку, а потом вводить текст, чтобы текст шел за картинкой

← →
webpauk © (2009-01-27 17:48) [1]

Здесь хочется чегой-нить нарисовать:
procedure WMPaint(var Message: TWMPaint);

unit Edit1; interface uses SysUtils, Classes, Controls, StdCtrls, Messages, Windows; type TEdit1 = class(TEdit) private procedure WMPaint(var Message: TWMPaint); message WM_PAINT; protected public published constructor Create(AOwner: TComponent); override; end; procedure Register; implementation procedure Register; begin RegisterComponents("KVL", [TEdit1]); end; constructor TEdit1.Create(AOwner: TComponent); begin inherited Create(AOwner); ControlStyle:=ControlStyle-[csSetCaption]; end; procedure TEdit1.WMPaint(var Message: TWMPaint); const cText = "Hello"; var Edit1_DC: HDC; begin inherited; Edit1_DC:=GetDC(Handle); SetTextColor(Edit1_DC, $FF0000); TextOut(Edit1_DC, 0, 0, cText, Length(cText)); ReleaseDC(Handle, Edit1_DC); end; end.

← →
Игорь Шевченко © (2009-01-27 18:01) [2]

> Хочу нарисовать в Tedit картинку, а потом вводить текст,
> чтобы текст шел за картинкой

EM_SETRECTNP (только tEdit должен создаваться со стилем ES_MULTILINE)

← →
webpauk © (2009-01-27 18:54) [3]

> Игорь Шевченко © (27.01.09 18:01) [2]

схавал!
вопрос: а куда в компонент можно его засунуть, чтобы не париться на формах?

> webpauk © (27.01.09 18:54) [3]
> вопрос: а куда в компонент можно его засунуть, чтобы не париться на формах?

Его - кого?

курсор в Tedit Найти похожие ветки