TD2ComboBox

type TD2ComboBox = class(TD2Control)

protected

  procedure GetChildren(); override;

  procedure ApplyStyle; override;

  procedure DoListBoxChange();

  procedure DoContentPaint(); virtual;

  procedure DesignClick; override;

  procedure MouseDown(); override;

  procedure MouseMove(); override;

  procedure MouseUp(); override;

  procedure MouseWheel(); override;

  procedure KeyDown(); override;

public

  constructor Create(); override;

  destructor Destroy; override;

  function ItemClass; override;

  procedure Paint; override;

  procedure PaintChildren; override;

  procedure Realign; override;

  procedure Clear; virtual;

  procedure DropDown; virtual;

  procedure AddObject(); override;

  property ListBox: TD2ComboListBox; [rw]

  property Count: Integer; [r]

published

  property CanFocused: Boolean;

  property DisableFocusEffect: Boolean;

  property TabOrder: TTabOrder;

  property Resource: string;

  property ItemIndex: Integer; [rw]

  property ItemHeight: Single; [rw]

  property DropDownCount: Integer; [rw]

  property Placement: TD2Placement; [rw]

  property BindingSource: TD2Control;

  property ListBoxResource: string; [rw]

  property OnChange: TNotifyEvent; [rw]

end;

TD2ComboBox

TD2Control

TD2VisualObject

TD2Object

TObject