Alignment in TEdit

← →
Sirruf (2004-10-19 21:05) [0]

В стандартном компоненте TEdit нет свойства Alignment... А мне нужно выравнивать текст по правому краю. Как это сделать? Или может кто-нить знает соответствующий компонент и кинет ссылочку?

← →
begin...end © (2004-10-19 21:12) [1]

Написать наследника, в котором перекрыть CreateParams()

← →
KilkennyCat © (2004-10-20 02:18) [2]

можно воспользоваться винапи... не помню, какой там сенд сделать, но можно.

← →
default © (2004-10-20 02:20) [3]

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

← →
KilkennyCat © (2004-10-20 02:36) [4]

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_RIGHT;
end;

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

А разве трудно поискать готовый компонент на Torry?

Alignment in TEdit Найти похожие ветки