Код:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Edit1: TEdit;
Panel1: TPanel;
CheckBox1: TCheckBox;
Button5: TButton;
Button6: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
if form1.CheckBox1.Checked then Form1.Edit1.Text:= Form1.Edit1.Text+'1'
else Form1.Panel1.Caption:= Form1.panel1.Caption+'1'
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
if form1.CheckBox1.Checked then Form1.Edit1.Text:= Form1.Edit1.Text+'2'
else Form1.Panel1.Caption:= Form1.panel1.Caption+'2'
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
if form1.CheckBox1.Checked then Form1.Edit1.Text:= Form1.Edit1.Text+'3'
else Form1.Panel1.Caption:= Form1.panel1.Caption+'3'
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
if form1.CheckBox1.Checked then Form1.Edit1.Text:= Form1.Edit1.Text+'4'
else Form1.Panel1.Caption:= Form1.panel1.Caption+'4'
end;
procedure TForm1.Button5Click(Sender: TObject);
begin
Form1.Edit1.Text:='';
Form1.Panel1.Caption:='';
end;
procedure TForm1.Button6Click(Sender: TObject);
begin
close();
end;
end.