(Delphi) lab 5.1 DeleteElem

unit DeleteElem;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Samples.Spin;

type
  TDeleteForm = class(TForm)
    TaskInfo: TLabel;
    DeleteButton: TButton;
    IndexSpinEdit: TSpinEdit;
    procedure DeleteButtonClick(Sender: TObject);
    procedure DeleteClose(Sender: TObject; var CanClose: Boolean);
    procedure DeleteCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DeleteForm: TDeleteForm;

implementation

{$R *.dfm}

uses MainUnit;

procedure TDeleteForm.DeleteButtonClick(Sender: TObject);
begin
    MainForm.Enabled := True;
    MainForm.DeleteLabel.Caption := IntToStr(IndexSpinEdit.Value);
    IndexSpinEdit.Value := 1;
    DeleteForm.Hide;
    MainForm.DeleteElem;
end;

procedure TDeleteForm.DeleteClose(Sender: TObject; var CanClose: Boolean);
begin
    IndexSpinEdit.Value := 1;
    MainForm.Enabled := True;
    DeleteForm.Hide;
end;

procedure TDeleteForm.DeleteCreate(Sender: TObject);
begin
    IndexSpinEdit.Enabled := True;
    IndexSpinEdit.Value := 1;
    if MainForm.sgArray.ColCount <> 1 then
    begin
        IndexSpinEdit.MaxValue := MainForm.sgArray.ColCount;
        IndexSpinEdit.MinValue := 1;
    end
    else
    IndexSpinEdit.Enabled := False;
end;

end.