Изменения в палитре компонентов.
Компонент LabeledEdit.
LabeledEdit — представляет собой средство редактирования, которое имеет связанную с ним метку. Этот компонент связан с меткой или ярлыком, который является его значением. Позиция этой метки относительно окна редактирования определяется свойствами LabelPosition и LabelSpacing.
Свойство property AutoSelect: Boolean; — определяет следующее обстоятельство: выбран ли весь текст, когда компонент получает фокус или нет. Если установлено значение True, то весь текст, имеющийся в компоненте, при получении им фокуса выделяется. Если установлено значение False, то текст в компоненте не выделяется, в этом случае вам необходимо выделять текст самостоятельно.
Свойство property AutoSize: Boolean; — позволяет вводить текст, по размеру превышающий размер окна редактирования компонента. Если установлено значение False, то вы можете ввести текст по ширине компонента и не более.
Свойство property BevelEdges: TBevelEdges; — определяет внешний вид границ компонента совместно со свойствами BevelInner и BevelOuter.
Свойство property BevelKind: TBevelKind; — определяет наличие скосов на компоненте, улучшающих его вид.
Свойство property CharCase: TEditCharCase;
type
TEditCharCase = (ecNormal, ecUpperCase, ecLowerCase); — используется для определения параметров текста вводимого в компонент. Возможные значения CharCase следующие:
EcLowerCase — текст преобразуется в строчные буквы.
EcNormal — текст появляется в смешанном виде: заглавные и строчные буквы.
EcUpperCase — текст преобразуется в заглавные буквы.
Свойство property EditLabel: TBoundLabel; — используется, чтобы работать с ярлыком, который связан с компонентом. Это свойство позволяет определить для ярлыка его заголовок, позицию заголовка в пределах ярлыка, шрифт заголовка и так далее.
Свойство property LabelPosition: TLabelPosition;
type
TLabelPosition = (lpAbove, lpBelow, lpLeft, lpRight); — определяет положение ярлыка относительно окна текстового редактора.
Возможные значения этого свойства:
LpAbove — ярлык размещается выше окна текстового редактора.
LpBelow — ярлык размещается ниже окна текстового редактора.
LpLeft — ярлык размещается сле-ва от окна текстового редактора.
LpRight — ярлык размещается справа от окна текстового редактора.
Свойство property LabelSpacing: Integer; — определяет расстояние в пикселях между ярлыком и окном текстового редактора.
Свойство property MaxLength: Integer; — определяет максимальное число знаков, которые пользователь может вводить в окно текстового редактора.
Вы можете ограничить число вводимых знаков. Значение -1 указывает, что не имеется никакого определенного ограничения на длину, кроме ограничения, вводимого самой операционной системой.
Свойство property SelLength: Integer; — определяет длину выбранных знаков в байтах.
Свойство property SelStart: Integer; — определяет позицию первого выбранного знака в тексте.
Свойство property SelText: string; — определяет выбранную часть текста для замены его другим текстом.
Следующий пример выполняет эту операцию, а именно копирует текст из компонента Labeled1 в компонент Labeled2, причем вы должны выделить текст в первом компоненте.
procedure TForm1.BitBtn1 Click (Sender: TObject);
var
Buffer: PChar;
Size: Integer;
begin
Size:=LabeledEdit1.SelLength;
{Get length of selected text in Edit1}
Inc(Size); {Add room for null character}
GetMem(Buffer, Size);
{Creates Buffer dynamic variable}
LabeledEdit1.GetSelTextBuf (Buffer,Size);
{Puts Edit1.Text into Buffer}
LabeledEdit2.Text:= StrPas(Buffer);
{Converts Buffer into Pascal-style string}
FreeMem(Buffer, Size);
{Frees memory allocated to Buffer}

end;
procedure TForm1.BitBtn2 Click (Sender: TObject);
begin
LabeledEdit2.Text:= Labeled-Edit1.SelText;
end;

end.
Процедура procedure SetBounds(ALeft: Integer; ATop: Integer; AWidth: Integer; AHeight: Integer); override; — используется для изменения границ компонента, т.е. всех параметров одновременно. Тот же самый эффект может быть достигнут, изменяя свойства раздельно, но SetBounds изменяет все четыре свойства сразу, после изменения границ редактора устанавливается необходимое положение ярлыка. Свойство procedure SetupInternalLabel; — приложения не должны вызывать метод SetupInternalLabel, потому что этот метод вызывается, когда вы устанавливаете фокус на EditLabel. Событие property OnChange: TNotifyEvent; — возникает, когда происходят изменения текста в текстовом редакторе.

Владимир Скуратов