Не работает setfocus на Labelededit

@Bloodev · Регистрация: 19.04.2016

Author24 — интернет-сервис помощи студентам

Я сейчас в своей курсовой работе наткнулся на проблем. Хотел сделать переход по строкам labelededit на интер, но при нажатии на него он прожимает кнопку которая размещена на форме. Подскажите как пофиксить это.

Delphi

procedure TForm2.LabeledEdit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then begin
LabeledEdit2.SetFocus;
end;
end;
procedure TForm2.LabeledEdit2KeyPress(Sender: TObject; var Key: Char);
begin
 if key=#13 then begin
LabeledEdit3.SetFocus;
end;
 end;

@D1973 · 19.04.2016, 20:22

Свойство Default своей кнопки установи в false

@Bloodev · 19.04.2016, 20:26 **[ТС]**

теперь просто не работает setfocus

@FIL · 19.04.2016, 20:50

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

Delphi

procedure TForm1.LabeledEdit1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then
  begin
    Key := #0;
    Perform(WM_NEXTDLGCTL, 0, 0);
  end;
end;

@Bloodev · 19.04.2016, 21:46 **[ТС]**

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

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

Delphi

procedure TForm1.LabeledEdit1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then
  begin
    Key := #0;
    Perform(WM_NEXTDLGCTL, 0, 0);
  end;
end;

переключает только на таб

@D1973 · 20.04.2016, 06:10

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

Один из вариантов:

Только еще надо свойство KeyPreview самой формы выставить в true

@FIL · 20.04.2016, 08:51

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

надо свойство KeyPreview самой формы выставить в true

Зачем? Ведь в момент нажатия Ентера LabeledEdit активен.

@D1973 · 21.04.2016, 16:16

FIL, я могу ошибаться, но, как мне кажется, вот это вот конструкция

Delphi

1	Perform(WM_NEXTDLGCTL, 0, 0);

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

@BOGG ART · 21.04.2016, 16:24

У меня Делфи7, всё работает с кодом из #1, если выполняется совет в #2.

Добавлено через 1 минуту
А кстати почему не KeyDown?

@FIL · 21.04.2016, 16:32

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

конструкция относится к форме

Да, к форме. Дает команду сделать активным следующий контрол.

@D1973 · 21.04.2016, 16:44

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

Зачем? Ведь в момент нажатия Ентера LabeledEdit активен

Ну вот затем и выставляется... Компонент активен, нажали Enter - перешли на следующий компонент. Если это свойство не выставлено, то ничего и не произойдет, насколько я помню...

@FIL · 21.04.2016, 18:11

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

Если это свойство не выставлено, то ничего и не произойдет

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

@D1973 · 21.04.2016, 18:41

Ну, дык, это, в пинципе, и требовалось... Назначить форме этот обработчик - и гуляй энтером по контролам...

@FIL Модератор 3491 / 2614 / 741 Регистрация: 19.09.2012 Сообщений: 7,976
	21.04.2016, 18:11	12
	Сообщение от D1973 Если это свойство не выставлено, то ничего и не произойдет У меня все происходит и без него. Возможно оно понадобится, если обработчик назначать форме, а не контролам. 0

@D1973 Модератор 9457 / 6210 / 2420 Регистрация: 21.01.2014 Сообщений: 26,468 Записей в блоге: 3
	19.04.2016, 20:22	2
	Свойство Default своей кнопки установи в false 0

@Bloodev 0 / 0 / 0 Регистрация: 19.04.2016 Сообщений: 21
	19.04.2016, 20:26 [ТС]	3
	теперь просто не работает setfocus 0

@D1973 Модератор 9457 / 6210 / 2420 Регистрация: 21.01.2014 Сообщений: 26,468 Записей в блоге: 3
	20.04.2016, 06:10	6
	Сообщение от FIL Один из вариантов: Только еще надо свойство KeyPreview самой формы выставить в true 0

@FIL Модератор 3491 / 2614 / 741 Регистрация: 19.09.2012 Сообщений: 7,976
	20.04.2016, 08:51	7
	Сообщение от D1973 надо свойство KeyPreview самой формы выставить в true Зачем? Ведь в момент нажатия Ентера LabeledEdit активен. 0

@BOGG ART 592 / 459 / 147 Регистрация: 09.12.2013 Сообщений: 2,385 Записей в блоге: 2
	21.04.2016, 16:24	9
	У меня Делфи7, всё работает с кодом из #1, если выполняется совет в #2. Добавлено через 1 минуту А кстати почему не KeyDown? 0

@FIL Модератор 3491 / 2614 / 741 Регистрация: 19.09.2012 Сообщений: 7,976
	21.04.2016, 16:32	10
	Сообщение от D1973 конструкция относится к форме Да, к форме. Дает команду сделать активным следующий контрол. 0

@D1973 Модератор 9457 / 6210 / 2420 Регистрация: 21.01.2014 Сообщений: 26,468 Записей в блоге: 3
	21.04.2016, 16:44	11
	Сообщение от FIL Зачем? Ведь в момент нажатия Ентера LabeledEdit активен Ну вот затем и выставляется... Компонент активен, нажали Enter - перешли на следующий компонент. Если это свойство не выставлено, то ничего и не произойдет, насколько я помню... 0

@D1973 Модератор 9457 / 6210 / 2420 Регистрация: 21.01.2014 Сообщений: 26,468 Записей в блоге: 3
	21.04.2016, 18:41	13
	Ну, дык, это, в пинципе, и требовалось... Назначить форме этот обработчик - и гуляй энтером по контролам... 0

Не работает setfocus на Labelededit

Решение