| Class TPathComboBox (unit PathCombo) |
TCustomComboBox
| Constructors |
constructor Create(AOwner: TComponent);| Functions |
destructor Destroy;
procedure BuildList;
procedure Change;
procedure Click;
procedure CreateWnd;
procedure CMFontChanged(var Message: TMessage);
procedure CNDrawItem(var Message: TWMDrawItem);
procedure SetPath(NewPath: string);
procedure WMCHAR(var Message: TMessage);| Properties |
property Color :
property Ctl3D :
property DragCursor :
property DragMode :
property Enabled :
property Font :
property ParentColor :
property ParentCtl3D :
property ParentFont :
property ParentShowHint :
property PopupMenu :
property ShowHint :
property TabOrder :
property TabStop :
property Visible :
property Path : string| Events |
event OnChange :
event OnClick :
event OnDblClick :
event OnDragDrop :
event OnDragOver :
event OnDropDown :
event OnEndDrag :
event OnEnter :
event OnExit :
event OnKeyDown :
event OnKeyPress :
event OnKeyUp :
event OnStartDrag : | Variables |
DriveSet : TDriveSet;
FDesktop : string;
FDesktopPath : string;
FDrives : string;
FiDesktop : integer;
FiDrives : integer;
FImageList : TImageList;
FNotifyChange : boolean;
FPath : string;| Constructors |
constructor Create(AOwner: TComponent);| Functions |
destructor Destroy;set current path
procedure BuildList;
procedure Change;Note: Path not changed while dropdown list visible
procedure Click;with canvas
procedure CreateWnd;The only way to notify OnChange event
procedure CMFontChanged(var Message: TMessage);
procedure CNDrawItem(var Message: TWMDrawItem);add drives after current drive
procedure SetPath(NewPath: string);
procedure WMCHAR(var Message: TMessage);| Properties |
property Color :
property Ctl3D :
property DragCursor :
property DragMode :
property Enabled :
property Font :
property ParentColor :
property ParentCtl3D :
property ParentFont :
property ParentShowHint :
property PopupMenu :
property ShowHint :
property TabOrder :
property TabStop :
property Visible :
property Path : string| Events |
event OnChange :
event OnClick :
event OnDblClick :
event OnDragDrop :
event OnDragOver :
event OnDropDown :
event OnEndDrag :
event OnEnter :
event OnExit :
event OnKeyDown :
event OnKeyPress :
event OnKeyUp :
event OnStartDrag : | Variables |
DriveSet : TDriveSet;
FDesktop : string;
FDesktopPath : string;
FDrives : string;
FiDesktop : integer;
FiDrives : integer;
FImageList : TImageList;
FNotifyChange : boolean;Workaround to stop OnChange event being called twice under some circumstances
FPath : string;