diff options
Diffstat (limited to 'examples/windoze/delphi20/multimo3/searchdlg.pas')
-rw-r--r-- | examples/windoze/delphi20/multimo3/searchdlg.pas | 35 |
1 files changed, 35 insertions, 0 deletions
diff --git a/examples/windoze/delphi20/multimo3/searchdlg.pas b/examples/windoze/delphi20/multimo3/searchdlg.pas new file mode 100644 index 0000000..7a8144d --- /dev/null +++ b/examples/windoze/delphi20/multimo3/searchdlg.pas @@ -0,0 +1,35 @@ +unit searchdlg; + +interface + +uses + Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, + StdCtrls; + +type + TSearchForm = class(TForm) + Edit1: TEdit; + Button1: TButton; + Button2: TButton; + ListBox1: TListBox; + Label1: TLabel; + procedure Button2Click(Sender: TObject); + private + { Private declarations } + public + { Public declarations } + end; + +var + SearchForm: TSearchForm; + +implementation + +{$R *.DFM} + +procedure TSearchForm.Button2Click(Sender: TObject); +begin + Close; +end; + +end. |