Текущий архив: 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.014 c
