VPF::поле edit теряет фокус - Форум программистов

Gumi

Дата 6.3.2012, 13:43 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 22
Регистрация: 19.10.2011

Репутация: нет
Всего: нет

Здравствуйте.

user posted image

в DBGRIDEH есть поле TIM_START, у которого STFILTER.VISIBLE:=true.

например: для сортировки по данному полю ставлю на него курсор, но потом переключаюсь на форму Tedit над полем REM. начинаю набирать там слово но курсор перепрыгивает в поле TIM_START.

Подскажите как это устранить?

Данкинг

Дата 6.3.2012, 13:59 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130

А длина Tedit какая?

--------------------

There's nothing left but silent epitaphs.

Gumi

Дата 6.3.2012, 14:04 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 22
Регистрация: 19.10.2011

Репутация: нет
Всего: нет

Длина поля Tedit = 65. В этом поле даже после первой введенной буквы начинает перепрыгивать.
Еще в его событие OnChange прописывала setfocus, не помогло.

Это сообщение отредактировал(а) Gumi - 6.3.2012, 14:07

Данкинг

Дата 6.3.2012, 15:41 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130

А вообще какие-то события на Edit висят?

--------------------

There's nothing left but silent epitaphs.

Gumi

Дата 7.3.2012, 06:56 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 22
Регистрация: 19.10.2011

Репутация: нет
Всего: нет

да. есть только одно событие Onchange

Код


procedure TFmHlp.GetDat;
begin
 with DM1.Query3 do begin
  if Active then Close;
  SQL.Clear;
  SQL.Add('exec sp_RASCH;4 :s1,:s2,:s3,:s4,:s5,:s6');
  Parameters.Refresh;

  if (DateEdit2.Date > 0) then Parameters[0].Value:= DateEdit2.Text
  else Parameters[0].Value:=NULL;

  if (DateEdit3.Date > 0) then Parameters[1].Value:= DateEdit3.Text
  else Parameters[1].Value:=NULL;

  if (Edit14.Text <> '') then  Parameters[2].Value:= Edit14.Text
  else Parameters[2].Value:=NULL;

  if (Edit15.Text <> '') then  Parameters[3].Value:= Edit15.Text
  else Parameters[3].Value:=NULL;

  if (Edit16.Text <> '') then Parameters[4].Value:= Edit16.Text
  else Parameters[4].Value:=NULL;

  if (Edit17.Text <> '') then Parameters[5].Value:= Edit17.Text
  else Parameters[5].Value:=NULL;
  Open;
 end;
end;

Данкинг

Дата 7.3.2012, 11:08 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130

А Open там зачем? Не он ли виной?

--------------------

There's nothing left but silent epitaphs.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »