Наличие указателя в объекте Edit

[El Fierro]

Здравствуйте! Ищу ответ на следующий вопрос. На форме есть 2 Edit'а. Нужно осуществлять ввод в тот из них, в котором стоит указатель. Какой параметр (функция и т.п.) отвечает за определение наличия в поле указателя? Можно ли его использовать, например, для передачи указателя в другое поле Edit?

[mihali4]

Что вы имеете в виду под "указателем"? Текстовый курсор, или курсор мыши, и что-то свое?

[El Fierro]

Я имею ввиду текстовый курсор. То есть ввод должен осуществляться в то поле, в котором этот курсор стоит. Также надо обеспечить возможность "перетаскивания" курсора в другое поле Edit по нажатию Enter.

[Пепел Феникса]

я думаю ты имел ввиду наличие фокуса в Эдите
тогда используй функцию Эдита TEdit.focused
например:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 if Edit1.Focused=true  
  then Edit1.text:=Edit1.Text+'1' 
  else Edit2.Text:=Edit2.Text+'2'
end;

Также надо обеспечить возможность "перетаскивания" курсора в другое поле Edit по нажатию Enter.

procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
 if Key=#13 then Edit1.SetFocus;
end;

по нажатию Enter во втором Эдите фокус переходит в первый

[DeKot]

Так как Edit является однострочным текстовым редактором, то так называемым "указателем" в нем служит текстовый курсор.По умолчанию (если программно не предопределено заранее) курсор находится в том компоненте, который раньше был введен на этапе конструирования формы.Переопределить курсор, а значит фокус ввода (SetFocus) можно программно :

Edit2.SetFocus;

Клавишей ТАВ фокус передается поочередно по компонентам, опять же в порядке их ввода на форму.

перетаскивания" курсора в другое поле Edit по нажатию Enter.

Пишешь обработчик клавиши Enter ( код - 13):

if Key = 13 then  <компонент> SetFocus;

[mihali4]

Сообщение от El Fierro

Я имею ввиду текстовый курсор. То есть ввод должен осуществляться в то поле, в котором этот курсор стоит. Также надо обеспечить возможность "перетаскивания" курсора в другое поле Edit по нажатию Enter.

Для первого - нужно любым способом просто передать фокус нужному эдиту, либо вручную, например, мышкой, либо программно, например:

Edit136.SetFocus;

Для второго нужно обрабатывать событие OnKeyDown, например:

procedure TForm1.Edit136KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=VK_RETURN then
Edit243.SetFocus;
end;

и тогда последующий ввод пойдет в Edit243...

[El Fierro]

Спасибо. С этой частью программы справился. Но появился ещё один вопрос по теме: в приложении есть кнопки, по нажатию на которые в Edit осуществляется ввод соответствующего символа. Однако при нажатии на кнопку фокус смещается на нее, и ввод не осуществляется. Как обойти это?

[mihali4]

Введите глобальную переменную TObject, например LASTEDITFOCUSED, куда будет заноситься объект эдит, последним получивший фокус.
Тогда вам будет однозначно известно, куда отправлять символ...

[DeKot]

Опять же в обработчике нажатия кнопки указать перевод фокуса :

procedure TForm1.Button1Click (Sender: TObject);
begin
  //  обработка кнопки ;
  Edit1.Text:= 'Перевожу сюда фокус' ;
  Edit1.SetFocus;
end;

В результате в Edit1 появится текст "Перевожу сюда фокус" и текстовый курсор также окажется в Edit1.

[mihali4]

Сообщение от DeKot

Опять же в обработчике нажатия кнопки указать перевод фокуса...

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

(LASTEDITFOCUSED as TEdit).SetFocus;