home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Visual Basic 4 Unleashed
/
Visual_Basic_4_Unleashed_SAMS_Publishing_1995.iso
/
repease
/
dmo_dlp3.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1995-07-19
|
1KB
|
54 lines
unit Dmo_dlp3;
interface
uses WinTypes, WinProcs, Classes, Graphics, Forms, Controls, Buttons,
StdCtrls, ExtCtrls, sysutils, dialogs, dmo_dlp1;
type
TFileSel = class(TForm)
OKBtn: TBitBtn;
CancelBtn: TBitBtn;
ListBox1: TListBox;
procedure FileSelShow(Sender: TObject);
procedure ListBox1DblClick(Sender: TObject);
procedure OkClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FileSel: TFileSel;
implementation
{$R *.DFM}
procedure TFileSel.FileSelShow(Sender: TObject);
var
i: Integer;
begin
ListBox1.items.clear; { reset the contents}
for i:=0 to MAX_FILES -1 do
begin
ListBox1.items.Add(DataFile[i].name);
end;
end;
procedure TFileSel.ListBox1DblClick(Sender: TObject);
begin
CurFile:=ListBox1.ItemIndex; {index of the selected item }
ModalResult:=mrOk;
hide;
end;
procedure TFileSel.OkClick(Sender: TObject);
begin
ListBox1DblClick(sender);
end;
end.