Смена фокуса ввода между двумя компонентами по нажатию Enter

@kudzey · Регистрация: 11.08.2014

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

доброго времени суток.
теперь к вопросу у меня есть программа которая состоит из listbox и edit. и мне нужно чтоб по нажатию на ентер фокус ввода менялся со строки listbox на edit. буду очень благодарен за помощь.

@Puporev · 21.08.2014, 11:15

Pascal

procedure TForm1.ListBox1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=13 then Edit1.Setfocus;
end;

@kudzey · 21.08.2014, 11:21 **[ТС]**

так же нужно чтоб по нажатию на ентер фокус менялся наобород.

Добавлено через 2 минуты
всё огромное спасибо теперь всё работает как надо

@volvo · 21.08.2014, 11:41

kudzey, и что, будешь на 2 компонента один и тот же код проверки нажатия Enter-а вешать? Может,

Pascal

// KeyPreview = True не забудь выставить форме
 
procedure TForm1.FormKeyPress(Sender: TObject; var Key: char);
begin
  if Key = #13 then
  begin
    Key := #0;
    SelectNext(ActiveControl, ActiveControl.TabOrder = 0, True);
  end;
end;

@Puporev · 21.08.2014, 11:45

UI, А почему у меня не срабатывает

Pascal

procedure TForm1.ListBox1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=VK_RETURN  then Edit1.Setfocus;
end;

Вообще не признает VK_RETURN

@volvo · 21.08.2014, 11:48

Pascal

1	Uses Windows;

есть в проекте? По умолчанию Лазарус это не добавляет, кроссплатформенность, мать ее...

@Puporev · 21.08.2014, 11:50

Спасибо, конечно нету, и не заглядывал в список модулей...

@kudzey · 21.08.2014, 12:09 **[ТС]**

опять не работает как надо, помоему я допустил ошибку где то в коде.
не могли бы вы помочь ещё раз.
вот код программы. компелятор ошибки не выдаёт, но сама программа не работает как надо.

Pascal

unit Unit1;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
  Menus,  StrUtils;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    Edit1: TEdit;
    ListBox1: TListBox;
    MainMenu1: TMainMenu;
    MenuItem1: TMenuItem;
    MenuItem2: TMenuItem;
    MenuItem3: TMenuItem;
    MenuItem4: TMenuItem;
    MenuItem5: TMenuItem;
    MenuItem6: TMenuItem;
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    procedure Edit1KeyPress(Sender: TObject; var Key: char);
    procedure FormCreate(Sender: TObject);
    procedure ListBox1Click(Sender: TObject);
    procedure ListBox1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState
      );
    procedure MenuItem3Click(Sender: TObject);
    procedure MenuItem4Click(Sender: TObject);
    procedure MenuItem5Click(Sender: TObject);
    procedure MenuItem6Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;
 
var
  Form1: TForm1;
  s1,s2,s3:string;
 
implementation
 
{$R *.lfm}
 
{ TForm1 }
 
procedure TForm1.MenuItem3Click(Sender: TObject);
begin
  if OpenDialog1.Execute then begin
   ListBox1.Items.LoadFromFile(OpenDialog1.FileName);
   end;
end;
 
procedure TForm1.ListBox1Click(Sender: TObject);
begin
 { s1:= Trim(ExtractWord(1, ListBox1.Items[ListBox1.ItemIndex], [';']));
  s2:=Trim(ExtractWord(2, ListBox1.Items[ListBox1.ItemIndex], [';']));
  s3:= Trim(ExtractWord(3, ListBox1.Items[ListBox1.ItemIndex], [';']));
Edit1.Text:=s3; }
end;
 
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: char);
begin
  with ListBox1 do
  if (key=#13)and(ItemIndex<>-1) then begin
 
    Items[ItemIndex]:=TEdit(Sender).Text;
 
    Items[ItemIndex]:=s1+';'+s2+';'+TEdit(Sender).Text
end;
  end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  SaveDialog1.Filter:=
'текстовые файлы|*.txt|Все файлы|*.*';
end;
 
procedure TForm1.ListBox1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if key=13 then Edit1.Setfocus;
   begin
  s1:= Trim(ExtractWord(1, ListBox1.Items[ListBox1.ItemIndex], [';']));
  s2:=Trim(ExtractWord(2, ListBox1.Items[ListBox1.ItemIndex], [';']));
  s3:= Trim(ExtractWord(3, ListBox1.Items[ListBox1.ItemIndex], [';']));
Edit1.Text:=s3;
end;
end;
 
procedure TForm1.MenuItem4Click(Sender: TObject);
begin
    if SaveDialog1.Execute then begin
   ListBox1.Items.SaveToFile(SaveDialog1.FileName);
   end;
end;
 
procedure TForm1.MenuItem5Click(Sender: TObject);
begin
  if MessageDlg('Вставить строку выше выделенной?', mtInformation, [mbOk,mbCancel],0) = mrOK
  then
  begin
    ListBox1.Items.Insert(ListBox1.ItemIndex, Edit1.text);
    ListBox1.Items.SaveToFile('FileName');
end;
end;
 
procedure TForm1.MenuItem6Click(Sender: TObject);
begin
  if MessageDlg('Удалить строку?', mtInformation,
  [mbOk,mbCancel],0) = mrOK
  then
  begin
    ListBox1.Items.delete(ListBox1.ItemIndex);
    ListBox1.Items.SaveToFile('FileName');
  end;
 
end;
 
end.

@volvo · 21.08.2014, 12:27

1)

Pascal

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: char);
begin
  with ListBox1 do
    if (key = #13) and (ItemIndex <> -1) then
    begin
 
      Items[ItemIndex] := TEdit(Sender).Text;
 
      Items[ItemIndex] := s1 + ';' + s2 + ';' + TEdit(Sender).Text;
      ListBox1.SetFocus; // <--- Вот это надо добавить
    end;
end;

2)

Pascal

procedure TForm1.ListBox1KeyDown(Sender: TObject; var Key: word; Shift: TShiftState);
begin
  if key = 13 then
    Edit1.SetFocus; // Здесь только эта строка
end;

3) добавляешь обработчик OnSelectionChange для ListBox-а, и пишешь в нем:

Pascal

procedure TForm1.ListBox1SelectionChange(Sender: TObject; User: boolean);
begin
  s1 := Trim(ExtractWord(1, ListBox1.Items[ListBox1.ItemIndex], [';']));
  s2 := Trim(ExtractWord(2, ListBox1.Items[ListBox1.ItemIndex], [';']));
  s3 := Trim(ExtractWord(3, ListBox1.Items[ListBox1.ItemIndex], [';']));
  Edit1.Text := s3;
end;

Теперь будет работать как надо...

@kudzey · 21.08.2014, 13:17 **[ТС]**

у меня собственно последний вопрос. есть кнопка отвечающая за вставить строку, она вставляет строку выше выделенной, как сделать так чтоб строка вставлялась ниже выделенной.

Pascal

procedure TForm1.MenuItem5Click(Sender: TObject);
begin
  if MessageDlg('Вставить строку выше выделенной?', mtInformation, [mbOk,mbCancel],0) = mrOK
  then
  begin
    ListBox1.Items.Insert(ListBox1.ItemIndex, Edit1.text);
    ListBox1.Items.SaveToFile('FileName');
end;
end;

когда я пишу ItemIndex-1 оно на две строки выше вставляет.

@volvo · 21.08.2014, 13:22

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

когда я пишу ItemIndex-1

Почему "минус", когда надо "плюс"?

@kudzey 1 / 1 / 1 Регистрация: 11.08.2014 Сообщений: 33
		1
	Смена фокуса ввода между двумя компонентами по нажатию Enter 21.08.2014, 11:00. Показов 8134. Ответов 10 Метки нет (Все метки) доброго времени суток. теперь к вопросу у меня есть программа которая состоит из listbox и edit. и мне нужно чтоб по нажатию на ентер фокус ввода менялся со строки listbox на edit. буду очень благодарен за помощь. 0

@kudzey 1 / 1 / 1 Регистрация: 11.08.2014 Сообщений: 33
	21.08.2014, 11:21 [ТС]	3
	так же нужно чтоб по нажатию на ентер фокус менялся наобород. Добавлено через 2 минуты всё огромное спасибо теперь всё работает как надо 0

@Puporev Почетный модератор 64304 / 47599 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	21.08.2014, 11:50	7
	Спасибо, конечно нету, и не заглядывал в список модулей... 1

@volvo Супер-модератор 32990 / 21296 / 8180 Регистрация: 22.10.2011 Сообщений: 36,589 Записей в блоге: 8
	21.08.2014, 13:22	11
	Сообщение от kudzey когда я пишу ItemIndex-1 Почему "минус", когда надо "плюс"? 1

Смена фокуса ввода между двумя компонентами по нажатию Enter

Решение