Class TIconDlg (unit Unit2)

Inherits from

TForm

Constructors



Functions

procedure BrowseBtnClick(Sender: TObject);


procedure FormShow(Sender: TObject);


procedure IconFileNameChange(Sender: TObject);

openDialog1.

procedure IconListBoxDblClick(Sender: TObject);


procedure OKbtnClick(Sender: TObject);


Properties

Events

Variables

BrowseBtn : TButton;


CancelBtn : TButton;


IconFileName : TEdit;


IconListBox : TIconListBox;


Label1 : TLabel;


Label2 : TLabel;


OKbtn : TButton;


OpenDialog1 : TOpenDialog;



Constructors


Functions


procedure BrowseBtnClick(Sender: TObject);


procedure FormShow(Sender: TObject);


procedure IconFileNameChange(Sender: TObject);

openDialog1.FileName := '*.*';


procedure IconListBoxDblClick(Sender: TObject);


procedure OKbtnClick(Sender: TObject);


Properties


Events


Variables


BrowseBtn : TButton;


CancelBtn : TButton;


IconFileName : TEdit;


IconListBox : TIconListBox;


Label1 : TLabel;


Label2 : TLabel;


OKbtn : TButton;


OpenDialog1 : TOpenDialog;