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.