Выравнивание по центру в TEdit?

Содержание материала

TEdit не поддерживает выравниваение текста по центру и по правой стороне - лучше использовать компонент TMemo. Вам понадобится запретить пользователю нажимать Enter, Ctrl-Enter и всевозможные комбинации клавиш со стрелками, чтобы избежать появления нескольких сторк в Memo. Этого можно добиться и просматривая содержимое текста в TMemo в поисках кода возврата каретки (13) и перевода строки(10) на событиях TMemo Change и KeyPress. Можно также заменять код возврата каретки на пробел - для того чтобы позволять вставку из буфера обмена многострочного текста в виде одной строки.

Code:

procedure TForm1.FormCreate(Sender: TObject);

begin

Memo1.Alignment := taCenter;

Memo1.MaxLength := 24;

Memo1.WantReturns := false;

Memo1.WordWrap := false;

end;

procedure MultiLineMemoToSingleLine(Memo: TMemo);

var

t: string;

begin

t := Memo.Text;

if Pos(#13, t) > 0 then

begin

while Pos(#13, t) > 0 do

delete(t, Pos(#13, t), 1);

while Pos(#10, t) > 0 do

delete(t, Pos(#10, t), 1);

Memo.Text := t;

end;

procedure TForm1.Memo1Change(Sender: TObject);

begin

MultiLineMemoToSingleLine(Memo1);

end;

procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);

begin

MultiLineMemoToSingleLine(Memo1);

end;

Code:

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

{ Пример TEdit с выравниванием по центру © Song

в модификации Vit

}

{©Drkb v.3(2007): www.drkb.ru}

type

TForm1 = class(TForm)

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

{ Обявляем класс нашего едита как потомок от стандартного}

type TMySuperEdit=class(TCustomEdit)

public

{ Внутри класса переопредялем процедуру CreateParams,

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

окна }

Procedure CreateParams(Var Params: TCreateParams); override;

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

Procedure TMySuperEdit.CreateParams(Var Params: TCreateParams);

Begin

{ Вызываем родительский обработчик, чтобы он сделал все процедуры по созданию объекта класса }

inherited CreateParams(Params);

{ Изменяем стиль }

With Params Do Style:=Style or ES_CENTER;

End;

procedure TForm1.FormCreate(Sender: TObject);

begin

{ Создаём едит на основе нашего класса и кладём его на форму }

With TMySuperEdit.Create(Self) Do

Parent:=Self;

end;

End.

Новые статьи

Ранние статьи

Выравнивание по правому краю в TEdit?

TEdit, TSpinEdit