ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/examples/services/SelectDBDlgUnit.pas
(Generate patch)

Comparing ibx/trunk/examples/services/SelectDBDlgUnit.pas (file contents):
Revision 208 by tony, Fri Feb 23 12:11:21 2018 UTC vs.
Revision 209 by tony, Wed Mar 14 12:48:51 2018 UTC

# Line 44 | Line 44 | type
44      Button2: TButton;
45      Edit1: TEdit;
46      Label1: TLabel;
47 +    procedure FormShow(Sender: TObject);
48    private
49  
50    public
# Line 60 | Line 61 | implementation
61  
62   { TSelectDBDlg }
63  
64 + procedure TSelectDBDlg.FormShow(Sender: TObject);
65 + begin
66 +  Edit1.SetFocus;
67 + end;
68 +
69   function TSelectDBDlg.ShowModal(var DatabaseName: string): TModalResult;
70   begin
71    Edit1.Text := DatabaseName;

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines