Class TPathComboBox (unit PathCombo) |
Inherits from
TCustomComboBox
constructor Create(AOwner: TComponent);
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);
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
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 :
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;
constructor Create(AOwner: TComponent);
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);
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
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 :
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;