Changeset 8 for os/trunk/Applications/TestApplication.pas

Timestamp:

Jun 2, 2013, 10:46:40 PM (11 years ago)

Author:

chronos

Message:

• Added: Implemented simple TEdit control which react to key press messages.

File:

• os/trunk/Applications/TestApplication.pas (modified) (3 diffs)

os/trunk/Applications/TestApplication.pas

@@ -12 +12 @@
     Button: TButton;
     Label1: TLabel;
+    Edit1: TEdit;
     Timer1: TTimer;
     procedure Run; override;
@@ -54 +55 @@
   Button.Caption := 'Start';
   Button.OnClick := ButtonClick;
-  Form1.Controls.Add(Button);
   Label1 := TLabel.Create;
   Label1.Parent := Form1;
@@ -61 +61 @@
   Label1.Visible := True;
   Label1.Caption := '0';
-  Form1.Controls.Add(Label1);
+  Edit1 := TEdit.Create;
+  Edit1.Parent := Form2;
+  Edit1.Owner := Form2;
+  Edit1.Bounds := TRectangle.Create(60, 80, 60, 24);
+  Edit1.Visible := True;
+  Edit1.Text := 'Text';
   MainForm := Form1;
   TScreen(Screen).Forms.Add(Form1);