Отчет по практике: Программа для подсчета выручки казино

procedure TForm1. Button1Click (Sender: TObject);

begin

Memo1. Visible:= false;

Button1. Visible:= false;

end;

procedure TForm1. FormDblClick (Sender: TObject);

begin

Button3. Visible:= false;

end;

unit Unit2;

interface

uses

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

Dialogs, ComCtrls, StdCtrls, CheckLst;

type

TForm2 = class(TForm)

Button1: TButton;

Button2: TButton;

Button3: TButton;

ComboBox1: TComboBox;

Edit1: TEdit;

Edit2: TEdit;

Label1: TLabel;

Label2: TLabel;

procedure Button2Click (Sender: TObject);

procedure FormHide (Sender: TObject);

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

procedure Button3Click (Sender: TObject);