Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > если в поле ввода нет курсора, то...

Автор: valerchi 25.3.2011, 23:51

Подскажите, пожалуйста как правильно написать. Мне нужно написать условие типа:
если в поле ввода нет курсора, то...
Я писал так: if memo1.setfocus= false then...
но ничего не получается.

Автор: northener 26.3.2011, 00:16

Например так:

Код


  if ActiveControl <> Memo1 then Memo1.SetFocus;

Автор: valerchi 26.3.2011, 00:23

Цитата(northener @ 26.3.2011, 00:16)

Например так:

Код


  if ActiveControl <> Memo1 then Memo1.SetFocus;

Не получается. Сделал так:

Код


if ActiveControl <> Memo1.SetFocus then...

Мне не нужно, чтобы setfocus был в поле memo1.

Добавлено через 7 минут и 9 секунд
Может что-то неправильно делаю... У меня условие выполняется в процедуре keypress. и я хочу поставить условие, что если курсор находится в любом поле, кроме memo1, то допустимы все вводы символов (в любое поле кроме memo1)

Добавлено через 11 минут и 34 секунды
Так вроде бы правильно:

Код


if ActiveControl <> Memo1 then....

Пошагово проверяю, условие = true а после условия (then ) ничего не выполняется ничего не пойму....

Добавлено через 14 минут и 50 секунд
Всё, спасибо, разобрался

Автор: northener 26.3.2011, 01:39

Цитата(valerchi @ 26.3.2011, 00:23

)

Может что-то неправильно делаю... У меня условие выполняется в процедуре keypress. и я хочу поставить условие, что если курсор находится в любом поле, кроме memo1, то допустимы все вводы символов (в любое поле кроме memo1)

Хм. А использовать событие TMemo.OnKeyPress религия запрещает?
Именно в обработчике этого события для данного контрола и положено запрещать ввод некоторых символов.
Хм2. Хотелось бы глянуть на эту "процедуру keypress". smile