Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.10.10;
Скачать: [xml.tar.bz2];

Вниз

Выравнивание по правому краю в TEdit   Найти похожие ветки 

 
ViRUS_1   (2002-09-28 21:31) [0]

Как сделать?


 
Юрий Зотов   (2002-09-28 21:45) [1]

Примерно так:

SetWindowLong(Edit1.Handle, GWL_STYLE,
GetWindowLong(Edit1.Handle, GWL_STYLE)
or ES_RIGHT or ES_MULTILINE and not ES_WANTRETURN);

Подробности в справке API по CreateWindow.


 
ViRUS_1   (2002-09-29 09:56) [2]

2 Зотов
Пишу
eee:=TEdit.Create(fmMain);
eee.Width:=50;
eee.Text:="fddf";
eee.Name:="edD";
fmMain.InsertControl(eee);
SetWindowLong(eee.Handle, GWL_STYLE,
GetWindowLong(eee.Handle, GWL_STYLE)
and ES_RIGHT or ES_MULTILINE and not ES_WANTRETURN);
А выравнивание все равно не происходит. Может это WinXP или Delphi 6 глючат? Или чего забыл?


 
MBo   (2002-09-29 17:19) [3]

Придется сделать наследника от TEdit и сделаать указанные действия в перекрытом CreateParams


 
PaRL   (2002-09-29 18:41) [4]

Я когда делал калькулятор, делал Edit через WinAPI, там когда создешь его через CreateWindow(), есть два параметра очень симпатишных:
ES_RIGHT Right-aligns text in a multiline edit control.
ES_NUMBER Allows only digits to be entered into the edit control.


 
Ученик   (2002-09-29 20:48) [5]

Можно взять TMemo, WantReturns=False, WordWrap=False, Alignment=taRightJustify, Height=21



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

Форум: "Основная";
Текущий архив: 2002.10.10;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.55 MB
Время: 0.04 c
3-31671
Krez
2002-09-18 15:08
2002.10.10
Ячейка в DBGrid


6-31932
Mishel
2002-08-09 15:02
2002.10.10
UDP/Soсket - на голом WinApi


1-31801
Gayrus
2002-09-28 14:28
2002.10.10
Глобальный поиск


4-32060
Kirill_
2002-07-24 00:13
2002.10.10
Как добавить свой пунктик в PopupMenu explorer


8-31903
Olegek
2002-06-08 17:52
2002.10.10
Обсудим мой код проигрывания мидишек?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский