Class Tfrm_attach (unit attach)

Inherits from

TForm

@/// Tfrm_attach = class(TForm)

Constructors



Functions

procedure btn_addClick(Sender: TObject);

@\\\0030001012001012001101*) (*@/// procedure Tfrm_attach.

procedure btn_delClick(Sender: TObject);

@\\\0000000503*) (*@/// procedure Tfrm_attach.

procedure lbx_attachDrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);

@\\\0000000805*) (*@/// procedure Tfrm_attach.

Properties

Events

Variables

btn_add : TButton;


btn_del : TButton;


btn_ok : TButton;


lbx_attach : TListBox;


OpenDialog : TOpenDialog;



Constructors


Functions


procedure btn_addClick(Sender: TObject);

@\\\0030001012001012001101*) (*@/// procedure Tfrm_attach.btn_addClick(Sender: TObject);


procedure btn_delClick(Sender: TObject);

@\\\0000000503*) (*@/// procedure Tfrm_attach.btn_delClick(Sender: TObject);


procedure lbx_attachDrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);

@\\\0000000805*) (*@/// procedure Tfrm_attach.lbx_attachDrawItem(Control: TWinControl; Index: Integer;


Properties


Events


Variables


btn_add : TButton;


btn_del : TButton;


btn_ok : TButton;


lbx_attach : TListBox;


OpenDialog : TOpenDialog;