unit Unit4;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
Tfrmmodifiche = class(TForm)
A: TListBox;
B: TListBox;
C: TListBox;
D: TListBox;
E: TListBox;
F: TListBox;
G: TListBox;
H: TListBox;
I: TListBox;
J: TListBox;
K: TListBox;
L: TListBox;
M: TListBox;
N: TListBox;
O: TListBox;
P: TListBox;
Q: TListBox;
R: TListBox;
S: TListBox;
T: TListBox;
U: TListBox;
V: TListBox;
W: TListBox;
X: TListBox;
Y: TListBox;
Z: TListBox;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
Label15: TLabel;
Label16: TLabel;
Label17: TLabel;
Label18: TLabel;
Label19: TLabel;
Label20: TLabel;
Label21: TLabel;
Label22: TLabel;
Label23: TLabel;
Label24: TLabel;
Label25: TLabel;
Label26: TLabel;
Button1: TButton;
resetta: TButton;
cancella: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure resettaClick(Sender: TObject);
procedure cancellaClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frmmodifiche: Tfrmmodifiche;
implementation
{$R *.dfm}
procedure Tfrmmodifiche.FormCreate(Sender: TObject);
begin
close;
end;
procedure Tfrmmodifiche.Button1Click(Sender: TObject);
begin
close;
end;
procedure Tfrmmodifiche.resettaClick(Sender: TObject);
begin
a.ItemIndex:=-1;
b.ItemIndex:=-1;
c.ItemIndex:=-1;
d.ItemIndex:=-1;
e.ItemIndex:=-1;
f.ItemIndex:=-1;
g.ItemIndex:=-1;
h.ItemIndex:=-1;
i.ItemIndex:=-1;
j.ItemIndex:=-1;
k.ItemIndex:=-1;
l.ItemIndex:=-1;
m.ItemIndex:=-1;
n.ItemIndex:=-1;
o.ItemIndex:=-1;
p.ItemIndex:=-1;
q.ItemIndex:=-1;
r.ItemIndex:=-1;
s.ItemIndex:=-1;
t.ItemIndex:=-1;
u.ItemIndex:=-1;
v.ItemIndex:=-1;
w.ItemIndex:=-1;
x.ItemIndex:=-1;
y.ItemIndex:=-1;
z.ItemIndex:=-1;
end;
procedure Tfrmmodifiche.cancellaClick(Sender: TObject);
begin
a.clear;
b.clear;
c.clear;
d.clear;
e.clear;
f.clear;
g.clear;
h.clear;
i.clear;
j.clear;
k.clear;
l.clear;
m.clear;
n.clear;
o.clear;
p.clear;
q.clear;
r.clear;
s.clear;
t.clear;
u.clear;
v.clear;
w.clear;
x.clear;
y.clear;
z.clear;
end;
end.