Переопределение компонента TLabelEdit

Общие вопросы: версии и диалекты, синтаксис языка, cтруктуры и типы данных (массивы, строки, списки...), обработка данных и т.д.
Ответить
Naya
Сообщения: 1
Зарегистрирован: 18 ноя 2012, 01:53

18 ноя 2012, 02:07

Доброго времени суток!

Необходимо сделать "супер"labelEdit, в котором текст и надпись располагаются по центру.

Вывод текста по центру сделала таким образом :

TLE=class(TLabeledEdit)
public
procedure CreateParams(var Params: TCreateParams); Override;
end;

procedure TLE.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
Params.Style := Params.Style or ES_CENTER;
end;

Подскажите, пожалуйста, как сделать,чтобы надписть была поцентру edit ?
Ответить