Форум: "Начинающим";
Текущий архив: 2008.09.21;
Скачать: [xml.tar.bz2];
Вниз
Переход на другой компонет при достужении конечной длины Edit a Найти похожие ветки
← →
ChaosAD © (2008-08-11 18:25) [0]Возможно реализовать сабж?
← →
Medbe}I{onok XML © (2008-08-11 18:27) [1]при достижении кем?
← →
Medbe}I{onok XML © (2008-08-11 18:29) [2]Возможно реализовать сабж?
ни разу не видел окон ввода серийника, когда курсор перескакивает в следующий контрол, если текущий заполнен?
← →
ChaosAD © (2008-08-11 18:31) [3]видел, вариант реализации, подтолкните...
← →
ChaosAD © (2008-08-11 18:31) [4]какое событие отслеживать?
← →
Юрий Зотов © (2008-08-11 18:38) [5]OnChange, естественно.
← →
ChaosAD © (2008-08-11 18:42) [6]Ок
← →
brother © (2008-08-12 04:14) [7]типа такого: если длинна текущего едита больше или равно максимуму, то установить фокус на следующий едит итд итп )
← →
aaaaa (2008-08-12 14:13) [8]
> brother © (12.08.08 04:14) [7]
> если длинна текущего едита больше или равно максимуму,
if Length(Edit1.Text >= MaxInt) then... :)
← →
MsGuns © (2008-08-12 14:49) [9]>Юрий Зотов © (11.08.08 18:38) [5]
>OnChange, естественно.
Будет весело, если эдит изменяется программно ;)
← →
Игорь Шевченко © (2008-08-12 15:41) [10]Я ставил на OnKeyPress
← →
Leonid Troyanovsky © (2008-08-12 20:06) [11]
> ChaosAD © (11.08.08 18:31) [3]
procedure TForm1.WMCommand(var msg: TWMCommand); // message WM_COMMAND; // контролы лежат на форме
var
edc : TEdit;
begin
if msg.NotifyCode = EN_UPDATE then
begin
edc := FindControl(msg.Ctl) as TEdit;
if edc.SelStart >= edc.MaxLength then {MaxLength > 0}
ActiveControl := FindNextControl(edc, True, True, False);
end;
inherited;
end;
Хотя, оно не препятствует WM_SETTEXT, AFAIK.
--
Regards, LVT.
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2008.09.21;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.007 c
