Скачать: CL | DM;

Переход на другой компонет при достужении конечной длины 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 вся ветка

Скачать: CL | DM;



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