¿Cómo un Combobox con el estilo csOwnerDrawFixed puede comportarse como el estilo csDropDown?

Question

estoy usando un componente TComboBox con el conjunto de propiedades de estilo de csOwnerDrawFixed, implemento el OnDrawItem y todo funciona bien, ahora quiero el que el cuadro combinado se comporte como cuando tenía el estilo csDropDown (con la csOwnerDrawFixed estilo se comporta como el estilo csDropDownList), quiero decir con un editor interno. ¿es posible?

Answer 1

Ninguno de los estilos OwnerDraw admite la presencia de un cuadro de edición en el TComboBox. En su lugar, tendrá que usar un TEdit por separado.

Answer 2

La envoltura TComboBox de Delphi no admite el estilo editable de un propietario, pero sí el control subyacente de Windows, y es fácil de habilitar.

Crear una nueva clase descendiente de este modo:

TComboBox = class(StdCtrls.TComboBox) 
public 
    procedure CreateParams(var Params: TCreateParams); override; 
end; 

procedure TComboBox.CreateParams(var Params: TCreateParams); 
begin 
    inherited; 
    if Assigned(OnDrawItem) then 
    Params.Style := Params.Style or CBS_OWNERDRAWFIXED 
end; 

Establecer la Style-csDropDown y asignar OnDrawItem como ya se está haciendo.