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

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;

GroupBox

Рисование на GroupBox

Я хочу рисовать на холсте (Canvas) моего компонента GroupBox. Но когда я пробую рисовать на Component.Parent.Canvas, рисование происходит на форме, а не на моем компоненте GroupBox. Что я делаю неправильно?

Canvas – защищенное свойство TGroupBox и, поэтому, недоступное. Вы можете сделать его доступным следующим образом:

type TMyGroupBox = class(TGroupBox)
public
 property Canvas;
end;

procedure SomeProcedure;
begin
 …
 with TMyGroupBox(GroupBox1).Canvas do
 CopyRect(ClipRect, Image1.Canvas, ClipRect);
 …
end;

– Ralph Friedman 

Доступ к компонентам GroupBox

Delphi 1 

Одно из свойств всех элементов управления – указатель на другие элементы, которые он содержит. Это свойство – свойство Controls, которое индексируется наподобие массива. Количество элементов управления содержится в свойстве ControlCount. Если вы хотите получить доступ к свойству или методу, которого нет у TControl, вам неоходимо осуществить приведение типа элемента списка.