11:03 am

>Cambiado EditInsideHelp2 por Edit2
isaelfeliciano · Aug 27, 2012 · 9b5b5d0 · 9b5b5d0
1 parent a86a688
commit 9b5b5d0
Show file tree

Hide file tree

Showing 6 changed files with 11 additions and 22 deletions.
diff --git a/Abrir_Internet.exe b/Abrir_Internet.exe
diff --git a/UAbrir_Internet.dcu b/UAbrir_Internet.dcu
diff --git a/UAbrir_Internet.dfm b/UAbrir_Internet.dfm
@@ -866,6 +866,14 @@ object Form1: TForm1
     PasswordChar = '*'
     TabOrder = 1
   end
+  object Edit2: TEdit
+    Left = 216
+    Top = 152
+    Width = 121
+    Height = 21
+    TabOrder = 3
+    Text = 'Edit2'
+  end
   object Conexion: TSQLConnection
     ConnectionName = 'IBConnection'
     DriverName = 'Interbase'

diff --git a/UAbrir_Internet.pas b/UAbrir_Internet.pas
@@ -14,12 +14,12 @@   TForm1 = class(TForm)
     Conexion: TSQLConnection;
     SimpleDataSet1: TSimpleDataSet;
     DataSource1: TDataSource;
-    EditInsideHelp2: TEditInsideHelp;
     Button1: TButton;
     Edit1: TEdit;
     SimpleDataSet1N_ALEATORIO: TIntegerField;
     SimpleDataSet2: TSimpleDataSet;
     SimpleDataSet2NUMEROS: TIntegerField;
+    Edit2: TEdit;
     procedure FormCreate(Sender: TObject);
     procedure Button1Click(Sender: TObject);
     procedure btOkClick(Sender: TObject);
@@ -51,7 +51,7 @@ procedure TForm1.FormCreate(Sender: TObject);
 procedure TForm1.Button1Click(Sender: TObject);
 begin
 SimpleDataSet1.Open;
-EditInsideHelp2.Text:= SimpleDataSet1N_ALEATORIO.AsString;
+Edit2.Text:= SimpleDataSet1N_ALEATORIO.AsString;
 
 end;
 

diff --git a/UAbrir_Internet.~dfm b/UAbrir_Internet.~dfm
@@ -842,23 +842,6 @@ object Form1: TForm1
     TabOrder = 0
     OnClick = btOkClick
   end
-  object EditInsideHelp2: TEditInsideHelp
-    Left = 184
-    Top = 152
-    Width = 193
-    Height = 21
-    Color = 16744448
-    DataField = 'N_ALEATORIO'
-    DataSource = DataSource1
-    TabOrder = 1
-    InsideHelpText = 'Contrase'#241'a'
-    InsideHelpActive = True
-    InsideHelpFont.Charset = DEFAULT_CHARSET
-    InsideHelpFont.Color = 16119285
-    InsideHelpFont.Height = -11
-    InsideHelpFont.Name = 'Arial'
-    InsideHelpFont.Style = []
-  end
   object Button1: TButton
     Left = 240
     Top = 184
@@ -881,7 +864,7 @@ object Form1: TForm1
     Font.Style = []
     ParentFont = False
     PasswordChar = '*'
-    TabOrder = 3
+    TabOrder = 1
   end
   object Conexion: TSQLConnection
     ConnectionName = 'IBConnection'

diff --git a/UAbrir_Internet.~pas b/UAbrir_Internet.~pas
@@ -38,8 +38,6 @@ var
   const
   clFocused = TColor($00FF8000);
 
-
-
 implementation
 
 {$R *.dfm}