Последние записи

made in programmersforum 6

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

8th
Сен

При нажатии enter добавить значение из edit в listbox

Posted by Chas under Delphi

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

Stilet
Пример обработки клавиши Энтер в эдите:

unit Unit1;
{$mode objfpc}{$H+}
interface
uses

  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;
type
  { TForm1 }
  TForm1 = class(TForm)

    Edit1: TEdit;

    ListBox1: TListBox;

    procedure Edit1KeyPress(Sender: TObject; var Key: char);

  private

    { private declarations }

  public

    { public declarations }

  end;
var

  Form1: TForm1;
implementation
{$R *.lfm}
{ TForm1 }
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: char);

begin

  if key=#13 then ListBox1.AddItem(TEdit(Sender).Text,nil);

  TEdit(Sender).Text:='';

end;
end.