Алексей Румянцев
дата публикации 03-04-2006 03:41

---

Версия для печати

• property BorderDrawStyle: TBorderDrawStyle;
• bdsDefault - стандартный внешний вид
• bdsNull - без рамки
• bdsFlat - с аккуратной рамкой
• bdsFrame - с плоской рамкой
• property BorderColor: TColor; - измените цвет рамки, только в режиме bdsFlat и bdsFrame
• property BorderLeft: Boolean; - В режиме плоской рамки можете убрать левую
• property BorderTop: Boolean; - верхнюю
• property BorderRight: Boolean; - правую или
• property BorderBottom: Boolean; - нижнюю рамку.

• property ButtonWidth: Integer; - размеры этой кнопки
• property OnEditButtonClick; - реакция на нажатие кнопки

• property EditStyle: TEditStyle;
• esSimple - может иметь обычный вид TEdit'a
• esEllipsis - справа кнопка с тремя точечками
• esPickList - выпадающий список. в данном случае это TListBox
• property ButtonWidth: Integer; - размеры этой кнопки
• property PickList: TListBox; - выпадающий список. Доступен в любое время.
• property DropDownRows: Integer; - кол-во видимых строк в picklist'e
• property OnEditButtonClick; - реакция на нажатие кнопки (когда стиль esEllipsis)
• property OnDropDown; - событие до того как picklist появится на экране
• property OnCloseUp; - событие после того как элемент выбран и до того как список исчезнет с экрана. переменная text - текст который будет выведен в текстовом поле
• property ListBox...; - свойства выпадающего списка, доступные для изменения в design-time

• property EditStyle: TEditStyle;
• esSimple - может иметь обычный вид TEdit'a
• esEllipsis - справа кнопка с тремя точечками
• esPickList - выпадающий список. в данном случае это TTreeView
• property ButtonWidth: Integer; - размеры этой кнопки
• property PickList: TListBox; - выпадающий список. Доступен в любое время.
• property DropDownRows: Integer; - кол-во видимых строк в picklist'e
• property OnEditButtonClick; - реакция на нажатие кнопки (когда стиль esEllipsis)
• property OnDropDown; - событие до того как picklist появится на экране
• property OnCloseUp; - событие после того как элемент выбран и до того как список исчезнет с экрана. переменная text - текст который будет выведен в текстовом поле
• property TreeView...; - свойства выпадающего списка, доступные для изменения в design-time

• property EditStyle: TEditStyle;
• esSimple - может иметь обычный вид TEdit'a
• esEllipsis - справа кнопка с тремя точечками
• esPickList - выпадающий список. в данном случае это TStringGrid
• property ButtonWidth: Integer; - размеры этой кнопки
• property PickList: TListBox; - выпадающий список. Доступен в любое время.
• property DropDownRows: Integer; - кол-во видимых строк в picklist'e
• property OnEditButtonClick; - реакция на нажатие кнопки (когда стиль esEllipsis)
• property OnDropDown; - событие до того как picklist появится на экране
• property OnCloseUp; - событие после того как элемент выбран и до того как список исчезнет с экрана. переменная text - текст который будет выведен в текстовом поле
• property StringGrid...; - свойства выпадающего списка, доступные для изменения в design-time

unit MyUnit;


interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, RyStdCtrls;

type
  TMyPopupControl = class(любой_потомок_TWinControl'a) {это то}

  protected                             {что выпадает в качестве списка}
    procedure CreateParams(var Params: TCreateParams); override;
    procedure CreateWnd; override;
  public
    constructor Create(Owner: TComponent); override;
  end;

  TMyComboControl = class(TRyCustomComboPopup) {это ваш "combobox"}

  private
    function GetPickList: TMyPopupControl;
  protected
    function InitPickList: TWinControl; override;
    function GetPickListText: String; override;
    procedure UpdatePickListSize(DefWidth, DefHeight: Integer;
      ClientArea: Boolean); override;
    procedure ListMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer); override;
  public или published

    property PickList: TMyPopupControl read GetPickList;
    {+ ваши property}
    {+ property из TRyEdit и TRyCustomComboPopup}
  end;

implementation

{ TMyPopupControl }

constructor TMyPopupControl.Create(Owner: TComponent);

begin
  inherited;
  ControlStyle := ControlStyle + [csNoDesignVisible]; {выпадающий список не
  виден в design-time}
end;

procedure TMyPopupControl.CreateParams(var Params: TCreateParams);
begin
  inherited;
  with Params do
  begin

    Style := Style or WS_BORDER;
    ExStyle := WS_EX_TOOLWINDOW or WS_EX_TOPMOST;
    AddBiDiModeExStyle(ExStyle);
    WindowClass.Style := CS_SAVEBITS;
  end;
end;

procedure TMyPopupControl.CreateWnd;
begin
  inherited;
  Windows.SetParent(Handle, 0);
  CallWindowProc(DefWndProc, Handle, wm_SetFocus, 0, 0);
end;

{ TMyComboControl }

function TMyComboControl.InitPickList: TWinControl;
var
  Popup: TMyPopupControl;
begin
  {в этой функции вы создаёте свой контрол, выставляете его свойства, ...}

  Popup := TMyPopupControl.Create(Self);
  with Popup do
  begin
    Visible := False; {обязательные property}

    Parent := Self;
    OnMouseUp := ListMouseUp; {обязательный event}
  end;
  Result := Popup;
end;

procedure TMyComboControl.UpdatePickListSize(DefWidth, DefHeight: Integer;
  ClientArea: Boolean);
begin
  { перед тем как список показажется на экране
    вы можете здесь изменить его размеры
    DefWidth и DefHeight - это размеры по-умолчанию, измените их при желании}

  DefWidth := 150;
  DefWidth := 250;

  inherited;
end;

function TMyComboControl.GetPickListText: String;
begin
  { перед закрытием списка вызывается эта функция
    с вопросом какой текст возвращать edit'у-владельцу }

  Result := PickList.text;

end;

function TMyComboControl.GetPickList: TMyPopupControl;
begin
  Result := TMyPopupControl(inherited PickList);
end;

procedure TMyComboControl.ListMouseUp(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

begin
  { если по какой-то причине, после того как произошёл щелчёк по списку
    вы не хотите его закрывать (например щёлкнули по пустому месту в списке),
    просто вызовите exit, иначе inherited; }

  if {причина} then Exit;

  inherited;
end;
end.

• Исходные коды (27 K) обновление от 4/4/2006 7:29:00 AM