Советы по Delphi. Версия 1.4.3 от 1.1.2001

 property TabOrder;

 property Value: Extended read FieldValue write SetFieldValue;

 property Visible;

 property OnChange;

 property OnClick;

 property OnDblClick;

 property OnDragDrop;

 property OnDragOver;

 property OnEndDrag;

 property OnEnter;

 property OnExit;

 property OnKeyDown;

 property OnKeyPress;

 property OnKeyUp;

 property OnMouseDown;

 property OnMouseMove;

 property OnMouseUp;

end;

procedure Register;

implementation

procedure Register;

begin

 RegisterComponents('Additional', [TCurrencyEdit]);

end;

constructor TCurrencyEdit.Create(AOwner: TComponent);

begin

 inherited Create(AOwner);

 AutoSize := True;

 Alignment := taRightJustify;

 Width := 121;

 Height := 25;

 DispFormat := '$,0.00;($,0.00)';

 FieldValue := 0.0;

 AutoSelect := False;

 WantReturns := False;

 WordWrap := False;

 FormatText;

end;

procedure TCurrencyEdit.SetFormat(A: String);

begin

 if DispFormat <> A then begin

  DispFormat:= A;

  FormatText;

 end;

end;

procedure TCurrencyEdit.SetFieldValue(A: Extended);

begin

 if FieldValue <> A then begin

  FieldValue := A;

  FormatText;

 end;

end;

procedure TCurrencyEdit.UnFormatText;

var

 TmpText : String;

 Tmp     : Byte;

 IsNeg   : Boolean;

begin

 IsNeg := (Pos('-',Text) > 0) or (Pos('(',Text) > 0);

 TmpText := '';

 For Tmp := 1 to Length(Text) do

  if Text[Tmp] in ['0'..'9','.'] then

   TmpText := TmpText + Text[Tmp];

 try

  FieldValue := StrToFloat(TmpText);

  if IsNeg then FieldValue := -FieldValue;

 except

  MessageBeep(mb_IconAsterisk);

 end;

end;

procedure TCurrencyEdit.FormatText;

begin

 Text := FormatFloat(DispFormat,FieldValue);

end;

procedure TCurrencyEdit.CMEnter(var Message: TCMEnter);

begin

 SelectAll;

 inherited;

end;

procedure TCurrencyEdit.CMExit(var Message: TCMExit);

begin

 UnformatText;

 FormatText;

 Inherited;

end;

procedure TCurrencyEdit.KeyPress(var Key: Char);

begin

 if Not (Key in ['0'..'9','.','-']) Then Key := #0;

 inherited KeyPress(Key);

end;

procedure TCurrencyEdit.CreateParams(var Params: TCreateParams);

begin

 inherited CreateParams(Params);

 case Alignment of

 taLeftJustify : Params.Style := Params.Style or ES_LEFT and Not ES_MULTILINE;

 taRightJustify: Params.Style := Params.Style or ES_RIGHT and Not ES_MULTILINE;

 taCenter      : Params.Style := Params.Style or ES_CENTER and Not ES_MULTILINE;

 end;

end;

end. 

Отслеживаем позицию курсора в EditBox

Совет от читателя 

The_Sprite советует:

В форму добавляются TEditBox и TLabel, при этом TLabel постоянно показывает позицию курсора в элементе редактирования.

Совместимость: Все версии Delphi

Пример:

procedure TForm1.Edit1Change(Sender: TObject);

begin

 CurPos := Edit1.SelStart;

 Label1.Caption := IntToStr(CurPos);

end;

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);

begin

 If Key = VK_LEFT then dec(CurPos);

 if Key = VK_RIGHT then inc(CurPos);

 Label1.Caption:= IntToStr(CurPos);

end;