Смещение текста в Edit

← →
ttt (2013-02-03 01:25) [0]

Доброй ночи.

Возможно ли изменить смещение текста в edit? Допустим, чтобы он начинал набираться в середине контрола, а не зависел от рамки.

← →
Германн © (2013-02-03 01:32) [1]

> Возможно ли изменить смещение текста в edit? Допустим, чтобы
> он начинал набираться в середине контрола, а не зависел
> от рамки.

Возможно.

← →
ttt (2013-02-03 01:49) [2]

> Возможно.

И как же?

← →
KilkennyCat © (2013-02-03 02:47) [3]

установить свойство горизонтального выравнивания (слева, по центру, справа) в инспекторе объектов, предварительно выделив требуемый TEdit

← →
ttt (2013-02-03 02:53) [4]

Координаты нужно, а не выравнивание. :)

← →
Германн © (2013-02-03 03:15) [5]

> ttt (03.02.13 02:53) [4]
>
> Координаты нужно, а не выравнивание. :)
>

Месье любит извращения!?

← →
ttt (2013-02-03 04:04) [6]

> Месье любит извращения!?

http://s9.postimage.org/r8qxmw5cf/image.jpg

← →
ttt (2013-02-03 04:05) [7]

Удалено модератором

← →
MBo © (2013-02-03 06:44) [8]

послать Edit-у сообщение EM_SETMARGINS

> ttt (03.02.13 02:53) [4]
> Координаты нужно, а не выравнивание. :)
>
>

Задавать вопрос нужно грамотно. Координаты по Z?

← →
ttt (2013-02-03 15:16) [10]

EM_SETMARGINS подходит отлично, но не решает проблему смещения по высоте. Эту проблему решает EM_SETRECT, который работает только с ES_MULTILINE. Т.е. придется создавать однострочный Memo?

> Т.е. придется создавать однострочный Memo?
можно много строчный эдит... с запретом энтера, т.е. "фиктивно много строчный".

> можно много строчный эдит... с запретом энтера, т.е. "фиктивно много строчный".
TEdit = class(StdCtrls.TEdit) protected procedure CreateParams(var Params: TCreateParams); override; end; procedure TEdit.CreateParams(var Params: TCreateParams); begin inherited CreateParams(Params); Params.Style:= Params.Style or ES_MULTILINE and not ES_WANTRETURN; end;

Смещение текста в Edit Найти похожие ветки