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

Подскажите плз в чем может быть причина   Найти похожие ветки 

← →
smartleds   (2008-05-12 13:52) [0]

в поле ввода text edit при первом вводе в поле ввода после старта программы, при вводе первого символа курсор не сдвигается вправо, начинает сдвигаться только  при вводе второго.
например, вожу слово privet
пусть |-> положение курсора
при вводе буквы "p" получаю такую ситуацию
1)  |p  , а должно быть p|
когда ввожу вторую букву , то она вводится на место положения курсора получаем
2). r|p , а должно быть pr|

не пойму в чем дело это только при первом старте программы , потом все нормально вводится

---

← →
Palladin ©   (2008-05-12 14:03) [1]

кто"ж тебя знает чего ты там напрограммировал..

---

← →
{RASkov} ©   (2008-05-12 14:13) [2]

> [0] smartleds   (12.05.08 13:52)
> Подскажите плз в чем может быть причина

Однозначно в обработчиках данного эдита... ищи места с установкой курсора, например SelStart....

---

← →
{RASkov} ©   (2008-05-12 14:14) [3]

> Однозначно в обработчиках данного эдита...

ну или по таймеру :).... ужас какой)

---

← →
Big Joe   (2008-05-12 14:17) [4]

Может быть в обработчике есть что-то вроде SetFocus ...

---

← →
smartleds   (2008-05-12 14:19) [5]

Вот у меня обработчик такой , при помощи этого эдита пароль ввожу

procedure TForm1.Edit1Change(Sender: TObject);

begin
form1.Edit1.PasswordChar := "*";
end;

---

← →
Palladin ©   (2008-05-12 14:21) [6]

хем... и чем же продиктовано, столь божественное откровение, при каждом изменении данных выставлять все время одно и тоже свойство, которое достаточно один раз выставить в дизайнере формы?

---

← →
smartleds   (2008-05-12 14:21) [7]

вот сама программа
// --------- Button Enter ---------------
procedure TForm1.Button2Click(Sender: TObject);
var pass:string;
begin
pass:=edit1.text;
//form1.Memo1.Lines.Append(" pass="+(pass)+"  ");

if  pass="privet" then begin
                           form1.Memo1.Lines.Append("Пароль принят"+"  ");
                           button1.Click;
                           end
else form1.Memo1.Lines.Append("не верный пароль"+"  ");

end;

---

← →
Palladin ©   (2008-05-12 14:21) [8]

с дубу рухнуть можно, на какие выдумки голь хитра...

---

← →
{RASkov} ©   (2008-05-12 14:21) [9]

> [5] smartleds   (12.05.08 14:19)

Ну и зачем так делать???
Это нужно 1 раз только, например при создании формы ...или вообще в ио
Вот поэтому и прыгает, так как идет пересоздание окна эдита

---

← →
Ega23 ©   (2008-05-12 14:22) [10]

> Вот у меня обработчик такой , при помощи этого эдита пароль
> ввожу
>
> procedure TForm1.Edit1Change(Sender: TObject);
>
> begin
> form1.Edit1.PasswordChar := "*";
> end;
>


Ужас какой...  :(

---

← →
Anatoly Podgoretsky ©   (2008-05-12 14:28) [11]

Ужас!

---

← →
smartleds   (2008-05-12 14:29) [12]

Спасибо всем , убрал из обработчика form1.Edit1.PasswordChar := "*"; и вставил, как тут советовали в formcreate  и эффект пропал

---

← →
{RASkov} ©   (2008-05-12 14:29) [13]

....а не программа)

---

← →
{RASkov} ©   (2008-05-12 14:30) [14]

> [12] smartleds   (12.05.08 14:29)
> и эффект пропал

И ты это называешь эффектом? :) Да твоя программа в целом эффект еще тот :)))

---

← →
Amoeba ©   (2008-05-12 14:50) [15]

Еще замени в обработчике
form1.Edit1.PasswordChar := "*";
на
Edit1.PasswordChar := "*";
И больше так никогда не пиши

---

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

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



Память: 0.48 MB
Время: 0.012 c