Текущий архив: 2004.01.13;
Скачать: CL | DM;

Вниз

Maskedit - Edit c маской   Найти похожие ветки 

← →
TATIANA   (2003-12-26 11:27) [0]

Здрвствуйте ! Господа , подскажите пожалуйста , есть MaskEdit , сделала маску ввода вещественного числа < !сссссссссссс,сс;0;_ > , ввод работает хорошо , а когда вызываю форму для редактирования , то число без дроби , например 8000 , выравнивается к правому краю и на экране выглядит как - ____80,00 . Господа как мне выравнять к левому краю , чтобы на экране было - 8000_____,__ .
Cпасибо .

---

← →
DCoder ©   (2003-12-26 11:50) [1]

Используй обычный TEdit и обрабатывай нажатие символьных клавиш

procedure TEngineMF.Edit1KeyPress(Sender: TObject; var Key: Char);
var vch: set of char;
begin
inherited ; // VK_Back=#8
vch:=["0".."9",#8,decimalseparator];
if not (Key in vch) then Key:=#0;
end;

---

← →
DCoder ©   (2003-12-26 11:53) [2]

Если речь идет про отображение денег используй маску
0.00

---

Страницы: 1 вся ветка

Текущий архив: 2004.01.13;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.02 c