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

made in programmersforum 4

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

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

27th
Авг

Как создать дочернее окно при нажатии на кнопку?

Posted by Chas under Delphi

Проблема следующая: есть основная форма (или родительская) на форме расположена кнопка и листбокс. Вопрос: как создать дочерное окно при нажатии на кнопку, а название этого окна занеслось в листбокс, при этом создать на этой форме (дочерной) те компоненты которые необходимы, и количество создаваемых дочерных окон не должно быть ограниченным?
Дальше хуже, надо что бы, если мы закроем созданное окно то при двойном нажатии на его название в листбоксе это окошко опять появлялось….
Подскажите пожалуйста что да как если это возможно.

Аватар
Создание Form2 убери из dpr

unit Unit1;
interface
uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls;
type

  TForm1 = class(TForm)

    Button1: TButton;

    ListBox1: TListBox;

    procedure Button1Click(Sender: TObject);

    procedure ListBox1DblClick(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;
var

  Form1: TForm1;
implementation
uses Unit2;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);

var xForm2: TForm2;

begin

  xForm2:=TForm2.Create(Application);

  xForm2.Caption:=xForm2.Name;

  ListBox1.Items.AddObject(xForm2.Name,TObject(xForm2));

  xForm2.Show;

end;
procedure TForm1.ListBox1DblClick(Sender: TObject);

var i: Integer;

begin

  if ListBox1.ItemIndex>=0 then TForm(ListBox1.Items.Objects[ListBox1.ItemIndex]).Show;

end;
end.
unit Unit2;
interface
uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, Unit1;
type

  TForm2 = class(TForm)

    Edit1: TEdit;

    Edit2: TEdit;

    Memo1: TMemo;

    procedure FormClose(Sender: TObject; var Action: TCloseAction);

  private

    { Private declarations }

  public

    { Public declarations }

  end;
var

  Form2: TForm2;
implementation
{$R *.dfm}
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);

begin

  Action:=caHide;

end;
end.