| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Переход на другой компонет при достужении конечной длины Edit'a [D7, XP]
ChaosAD © (2008-08-11 18:25:00)Возможно реализовать сабж?
Leonid Troyanovsky (2008-08-12 20:06:00) [1]
> 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.
Игорь Шевченко (2008-08-12 15:41:00) [2]Я ставил на OnKeyPress
MsGuns (2008-08-12 14:49:00) [3]>Юрий Зотов © (11.08.08 18:38) [5]
>OnChange, естественно.
Будет весело, если эдит изменяется программно ;)
aaaaa (2008-08-12 14:13:00) [4]
> brother © (12.08.08 04:14) [7]
> если длинна текущего едита больше или равно максимуму,
if Length(Edit1.Text >= MaxInt) then... :)
brother (2008-08-12 04:14:00) [5]типа такого: если длинна текущего едита больше или равно максимуму, то установить фокус на следующий едит итд итп )
ChaosAD (2008-08-11 18:42:00) [6]Ок
Юрий Зотов (2008-08-11 18:38:00) [7]OnChange, естественно.
ChaosAD (2008-08-11 18:31:00) [8]видел, вариант реализации, подтолкните...
ChaosAD (2008-08-11 18:31:00) [9]какое событие отслеживать?
Medbe}I{onok XML (2008-08-11 18:29:00) [10]Возможно реализовать сабж?
ни разу не видел окон ввода серийника, когда курсор перескакивает в следующий контрол, если текущий заполнен?
Medbe}I{onok XML (2008-08-11 18:27:00) [11]при достижении кем?
| |
