Как сделать выравнивание по правому краю текста в TEdit?

Код

type  TNumEdit = class(TEdit)     procedure CreateParams(var Params: TCreateParams); override; ....... procedure TNumEdit.CreateParams(var Params: TCreateParams); begin inherited CreateParams(Params); Params.Style := Params.Style or ES_MULTILINE or ES_RIGHT; end;

вроде так

А без наследника через SetWindowLong() не прокатит?

Цитата(Song @ 22.7.2002, 08:20)

А без наследника через SetWindowLong() не прокатит?

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

Хмм.. Vit я думал Вам известна она. Вообще замечательный способ постаить/убрать стиль без наследования CreateParams(). Но правда не всегда получается (условностей много, долго обяснять). Третье значение это как раз те значения стилей, что нужно установить.

Известна, я ее применял и не раз, но каждый раз значение стилей просто сдирал с какого-нибудь примера, я так и не смог найти в помощи список доступных стилей, подозреваю что она использует этот integer как массив битов но методом научного тыка проверять квкой бит что обозначает никак руки не доходили, наверное займусь на досуге... И всё же если у кого есть дока было бы неплохо иметь...

Да неее... всё до банальности просто.
Вот пример как убрать кнопку с панели задач.

SetWindowLong(Application.Handle,GWL_EXSTYLE,GetWindowLong(Application.Handle,GWL_EXSTYLE) or WS_EX_TOOLWINDOW);

Application.Handle - дискриптор окна, у которого будет выполняться операция, описываемая вторым параметром SetWindowLong()

GWL_EXSTYLE - говорим, что меняем расширенный стиль окна. Есть другие команды, см. Help WinSDK

Третий параметр показывает тот новой стиль который мы устанавливаем для окна (я говорю про операцию со стилем, имея ввиду, что второй параметр GWL_EXSTYLE. Если параметр будет другой тот и этот параметр будет другой). Как мы устанавливаем новый стиль? Очень просто. Сначала получаем старый стиль окна - GetWindowLong() - с теми же параметрами, а потом соединяем его с нужным нам стилем например через логическую операцию or.

Как видите, ничего сложного.

Цитата(Song @ 22.7.2002, 10:47)

Третий параметр показывает тот новой стиль который мы устанавливаем для окна .... соединяем его с нужным нам стилем

Это всё совершенно ясно, спасибо за лбъяснения, но я это знаю, чего я не знаю, так это список стилей которые доступны, вот применяшь ты в примере стиль WS_EX_TOOLWINDOW, а какие ещё есть?

SetWindowLong не работает, на форме Caption по правому краю выровнять - пожалуйста, а текст в Edit - нет!

Цитата

Код type  TNumEdit = class(TEdit)     procedure CreateParams(var Params: TCreateParams); override; ....... procedure TNumEdit.CreateParams(var Params: TCreateParams); begin inherited CreateParams(Params); Params.Style := Params.Style or ES_MULTILINE or ES_RIGHT; end; вроде так

Так работает, спасибо большое. Только вот ES_MULTILINE там не так чтобы был нужен.

Цитата(Vit @ 22.7.2002, 20:39)

Цитата(Song @ 22.7.2002, 10:47) Третий параметр показывает тот новой стиль который мы устанавливаем для окна .... соединяем его с нужным нам стилем Это всё совершенно ясно, спасибо за лбъяснения, но я это знаю, чего я не знаю, так это список стилей которые доступны, вот применяшь ты в примере стиль WS_EX_TOOLWINDOW, а какие ещё есть?

В MSDN'е список есть, скорей всего. Можно в SDK набрать WS_ - все стили на ладони :-)

>Как сделать выравнивание по правому краю текста в TEdit?
Есть ещё один (бредовый) способ: использовать однострочный memo.
Memo1.WordWrap    := False;
Memo1.WantReturns := False;
Memo1.Alignment   := taRightJustify;

стили есть в справке по CreateWindow,CreateWindowEx

Спасибо всем, на удивление тема оказалась интересной!