ограничение символов

[Serge_Bliznykov]

просто TLabel на форму киньте (проверьте, он должен иметь наименование Label1)

[Grimnir69]

Переписал код (по аналогам ). Теперь требуется спозиционировать вводимый символ по центру Edit.
Если кто знает, посоветуйте, что в нем подправить!!!

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

  // Перхватываем событие KeyPress TEdit'а и измеряем ширину уже введенного текста
// и ширину нового символа. Если ширина больше чем клиентская область TEdit'а,
// новый символ отбрасывается.

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var
  Rect : TRect;
  bm : TBitmap;
begin
   if ( ( Ord( Key ) <> VK_TAB ) and ( Ord( Key ) <> VK_RETURN ) and
      ( Ord( Key ) <> VK_LEFT ) and ( Ord( Key ) <> VK_BACK ) ) then
   begin
      Windows.GetClientRect( Edit1.Handle, Rect );
      bm := TBitmap.Create;
      bm.Width := Rect.Right;
      bm.Height := Rect.Bottom;
      bm.Canvas.Font := Edit1.Font;
      if bm.Canvas.TextWidth( Edit1.Text + Key + ' ' ) > Rect.Right then
         Key := #0;
      bm.Free;
   end;
end;


end.