Subversion Repositories svnkaklik

Rev

Details | Last modification | View Log

Rev Author Line No. Line
6 kaklik 1
unit Unit2;
2
 
3
interface
4
 
5
uses
6
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
7
  Dialogs, StdCtrls;
8
 
9
type
10
  TForm2 = class(TForm)
11
    Edit1: TEdit;
12
    Button1: TButton;
13
    Button2: TButton;
14
    StaticText1: TStaticText;
15
    procedure enter(Sender: TObject);
16
    procedure Button1Click(Sender: TObject);
17
    procedure Button2Click(Sender: TObject);
18
 
19
  private
20
    { Private declarations }
21
  public
22
    { Public declarations }
23
  end;
24
 
25
var
26
  Form2: TForm2;
27
 
28
implementation
29
 
30
uses Unit1;
31
 
32
{$R *.dfm}
33
 
34
procedure TForm2.enter(Sender: TObject);
35
begin
36
  Edit1.Text;
37
end;
38
 
39
procedure TForm2.Button1Click(Sender: TObject);
40
begin
41
  Close;
42
end;
43
 
44
 
45
procedure TForm2.Button2Click(Sender: TObject);
46
begin
47
  Edit1.Text:='';
48
  Close;
49
end;
50
 
51
end.