Скачать: CL | DM;

Смещение текста в 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

---

← →
KilkennyCat ©   (2013-02-03 10:59) [9]

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


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

---

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

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

---

← →
sniknik ©   (2013-02-04 01:59) [11]

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

---

← →
sniknik ©   (2013-02-04 11:08) [12]

> можно много строчный эдит... с запретом энтера, т.е. "фиктивно много строчный".
 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;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.003 c