|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
12.11.2007, 21:49 | #1 |
Пользователь
Регистрация: 07.10.2007
Сообщений: 22
|
Выравнивание текста, моргающий курсор
Необходимо выравнять текст в поле Edit по правой стороне. Не получилось этого сделать, но нашел в интернете, что вместо Edit надо Memo использовать. А возможно убрать моргающий курсор (|), чтоб было как в калькуляторе Windows?
|
14.11.2007, 15:30 | #2 |
Форумчанин
Регистрация: 01.09.2007
Сообщений: 747
|
Вместо Мемо можно использовать StaticText, свойства задать такие:
Авторазмер-нет Выравнивание текста-по правой стороне Можно задать к нить стиль рамок, цвет и по виду он получиться как Едит В событии OnKeyPress Формы ставь следующее StaticText1.Caption:=StaticText1.Ca ption+Key; (Только тут одна проблема, при нажатии клавиши BackSpase пишутся непонятные символы) Но наверно проблему можно решить.
Никому не верьте.
|
14.11.2007, 16:36 | #3 |
Пользователь
Регистрация: 20.12.2006
Сообщений: 43
|
В Edit тоже можно сделать выравнивание:
TEdit1 = class(TEdit) public procedure CreateParams(var Params: TCreateParams); Override; end; procedure TEdit1.CreateParams(var Params: TCreateParams); begin inherited CreateParams(Params); Params.Style := Params.Style or ES_MULTILINE or ES_RIGHT; end;
Если бы я был на столько умён, чтобы ответить на все вопросы самостоятельно, я бы не спрашивал...
|
14.11.2007, 16:47 | #4 |
Участник клуба
Регистрация: 02.09.2007
Сообщений: 1,193
|
Класс TEdit является потомком TCustomEdit в котором есть процедура задания параметров CreateParams, но ее зачем-то поместили в раздел protected. Следовательно, чтобы не править модуль StdCtrls поступаем следующим образом:
создаем потомка от TEdit Код:
задаем выравнивание по правому краю Код:
Код:
Убрать курсор можно убрав фокус ввода с Edit Последний раз редактировалось _Dmitry; 14.11.2007 в 17:13. |
15.11.2007, 11:44 | #5 |
Участник клуба
Регистрация: 02.09.2007
Сообщений: 1,193
|
Лучше убрать каретку так:
Код:
|
15.11.2007, 15:48 | #6 |
Пользователь
Регистрация: 07.10.2007
Сообщений: 22
|
Спасибо. Все как надо теперь работает.
|
17.04.2009, 00:41 | #7 | |
Пользователь
Регистрация: 20.12.2006
Сообщений: 43
|
Цитата:
Блин... Я по моему то же самое написал
Если бы я был на столько умён, чтобы ответить на все вопросы самостоятельно, я бы не спрашивал...
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Выравнивание текста | SeregaIRK | Общие вопросы Delphi | 4 | 21.07.2008 15:17 |
Выравнивание строки | Dj_smart | Общие вопросы Delphi | 3 | 01.04.2008 09:40 |
курсор ввода текста | Михаил Юрьевич | Общие вопросы Delphi | 9 | 03.03.2008 15:32 |
выравнивание текста по ширине | Алёна | Общие вопросы Delphi | 6 | 18.04.2007 11:31 |