home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 4 Unleashed / Visual_Basic_4_Unleashed_SAMS_Publishing_1995.iso / repease / dmo_dlp2.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1995-07-19  |  1.1 KB  |  58 lines
  1. unit Dmo_dlp2;
  2.  
  3. interface
  4.  
  5. uses WinTypes, WinProcs, Classes, Graphics, Forms, Controls, Buttons,
  6.   StdCtrls, sysutils, dialogs, dmo_dlp1;
  7.  
  8. type
  9.   TFormSel = class(TForm)
  10.     OKBtn: TBitBtn;
  11.     CancelBtn: TBitBtn;
  12.     ListBox1: TListBox;
  13.     procedure FileSelShow(Sender: TObject);
  14.     procedure ListBox1DblClick(Sender: TObject);
  15.     procedure OkClick(Sender: TObject);
  16.   private
  17.     { Private declarations }
  18.   public
  19.     { Public declarations }
  20.   end;
  21.  
  22. var
  23.   FormSel: TFormSel;
  24.  
  25. implementation
  26.  
  27. {$R *.DFM}
  28.  
  29. procedure TFormSel.FileSelShow(Sender: TObject);
  30. var
  31.    i: Integer;
  32. begin
  33.    ListBox1.items.clear;    { reset the contents}
  34.  
  35.    for i:=0 to TotalForms -1 do
  36.    begin
  37.      ListBox1.items.AddObject(FormName[i],TObject(i));
  38.    end;
  39.  
  40. end;
  41.  
  42. procedure TFormSel.ListBox1DblClick(Sender: TObject);
  43. var
  44.    idx: integer;
  45. begin
  46.    idx:=ListBox1.ItemIndex;  {index of the selected item }
  47.    SelectedForm:=integer(ListBox1.items.objects[idx]);  { set the selected form}
  48.    ModalResult:=mrOk;
  49.    hide;
  50. end;
  51.  
  52. procedure TFormSel.OkClick(Sender: TObject);
  53. begin
  54.    ListBox1DblClick(sender);
  55. end;
  56.  
  57. end.
  58.