home *** CD-ROM | disk | FTP | other *** search
/ Mastering Visual Basic 6 / mastvb6.iso / leadtools / ocx32.lt / LIST.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-06-06  |  847 b   |  50 lines
  1. unit List;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   StdCtrls;
  8.  
  9. type
  10.   TListDlg = class(TForm)
  11.     GroupBox1: TGroupBox;
  12.     ListBox1: TListBox;
  13.     OK: TButton;
  14.     Cancel: TButton;
  15.     procedure FormCreate(Sender: TObject);
  16.     procedure OKClick(Sender: TObject);
  17.     procedure CancelClick(Sender: TObject);
  18.   private
  19.     { Private declarations }
  20.   public
  21.     { Public declarations }
  22.     bCancelled: boolean;
  23.   end;
  24.  
  25. var
  26.   ListDlg: TListDlg;
  27.  
  28. implementation
  29.  
  30. {$R *.DFM}
  31.  
  32. procedure TListDlg.FormCreate(Sender: TObject);
  33. begin
  34.    bCancelled := true;
  35. end;
  36.  
  37. procedure TListDlg.OKClick(Sender: TObject);
  38. begin
  39.    bCancelled := false;
  40.    Close;
  41. end;
  42.  
  43. procedure TListDlg.CancelClick(Sender: TObject);
  44. begin
  45.    bCancelled := true;
  46.    Close
  47. end;
  48.  
  49. end.
  50.