Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Sempronio, The Reader - Unit4.pas

Unit4.pas

Caricato da: Anonymous
Scarica il programma completo

  1. unit Unit4;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, StdCtrls;
  8.  
  9. type
  10.   Tfrmmodifiche = class(TForm)
  11.     A: TListBox;
  12.     B: TListBox;
  13.     C: TListBox;
  14.     D: TListBox;
  15.     E: TListBox;
  16.     F: TListBox;
  17.     G: TListBox;
  18.     H: TListBox;
  19.     I: TListBox;
  20.     J: TListBox;
  21.     K: TListBox;
  22.     L: TListBox;
  23.     M: TListBox;
  24.     N: TListBox;
  25.     O: TListBox;
  26.     P: TListBox;
  27.     Q: TListBox;
  28.     R: TListBox;
  29.     S: TListBox;
  30.     T: TListBox;
  31.     U: TListBox;
  32.     V: TListBox;
  33.     W: TListBox;
  34.     X: TListBox;
  35.     Y: TListBox;
  36.     Z: TListBox;
  37.     Label1: TLabel;
  38.     Label2: TLabel;
  39.     Label3: TLabel;
  40.     Label4: TLabel;
  41.     Label5: TLabel;
  42.     Label6: TLabel;
  43.     Label7: TLabel;
  44.     Label8: TLabel;
  45.     Label9: TLabel;
  46.     Label10: TLabel;
  47.     Label11: TLabel;
  48.     Label12: TLabel;
  49.     Label13: TLabel;
  50.     Label14: TLabel;
  51.     Label15: TLabel;
  52.     Label16: TLabel;
  53.     Label17: TLabel;
  54.     Label18: TLabel;
  55.     Label19: TLabel;
  56.     Label20: TLabel;
  57.     Label21: TLabel;
  58.     Label22: TLabel;
  59.     Label23: TLabel;
  60.     Label24: TLabel;
  61.     Label25: TLabel;
  62.     Label26: TLabel;
  63.     Button1: TButton;
  64.     resetta: TButton;
  65.     cancella: TButton;
  66.     procedure FormCreate(Sender: TObject);
  67.     procedure Button1Click(Sender: TObject);
  68.     procedure resettaClick(Sender: TObject);
  69.     procedure cancellaClick(Sender: TObject);
  70.   private
  71.     { Private declarations }
  72.   public
  73.     { Public declarations }
  74.   end;
  75.  
  76. var
  77.   frmmodifiche: Tfrmmodifiche;
  78.  
  79. implementation
  80.  
  81. {$R *.dfm}
  82.  
  83. procedure Tfrmmodifiche.FormCreate(Sender: TObject);
  84. begin
  85.  close;
  86. end;
  87.  
  88. procedure Tfrmmodifiche.Button1Click(Sender: TObject);
  89. begin
  90.  close;
  91. end;
  92.  
  93. procedure Tfrmmodifiche.resettaClick(Sender: TObject);
  94. begin
  95.  a.ItemIndex:=-1;
  96.  b.ItemIndex:=-1;
  97.  c.ItemIndex:=-1;
  98.  d.ItemIndex:=-1;
  99.  e.ItemIndex:=-1;
  100.  f.ItemIndex:=-1;
  101.  g.ItemIndex:=-1;
  102.  h.ItemIndex:=-1;
  103.  i.ItemIndex:=-1;
  104.  j.ItemIndex:=-1;
  105.  k.ItemIndex:=-1;
  106.  l.ItemIndex:=-1;
  107.  m.ItemIndex:=-1;
  108.  n.ItemIndex:=-1;
  109.  o.ItemIndex:=-1;
  110.  p.ItemIndex:=-1;
  111.  q.ItemIndex:=-1;
  112.  r.ItemIndex:=-1;
  113.  s.ItemIndex:=-1;
  114.  t.ItemIndex:=-1;
  115.  u.ItemIndex:=-1;
  116.  v.ItemIndex:=-1;
  117.  w.ItemIndex:=-1;
  118.  x.ItemIndex:=-1;
  119.  y.ItemIndex:=-1;
  120.  z.ItemIndex:=-1;
  121. end;
  122.  
  123. procedure Tfrmmodifiche.cancellaClick(Sender: TObject);
  124. begin
  125.  a.clear;
  126.  b.clear;
  127.  c.clear;
  128.  d.clear;
  129.  e.clear;
  130.  f.clear;
  131.  g.clear;
  132.  h.clear;
  133.  i.clear;
  134.  j.clear;
  135.  k.clear;
  136.  l.clear;
  137.  m.clear;
  138.  n.clear;
  139.  o.clear;
  140.  p.clear;
  141.  q.clear;
  142.  r.clear;
  143.  s.clear;
  144.  t.clear;
  145.  u.clear;
  146.  v.clear;
  147.  w.clear;
  148.  x.clear;
  149.  y.clear;
  150.  z.clear;
  151. end;
  152.  
  153. end.