Altura de un Combobox

[roman]

Empezado por elcigarra

el combobox sigue siendo el mismo con el mismo height, no como el inspector de Delphi que es mucho más angosto.

¿A qué se refieren con esto? Haciendo una medición veo que el del inspector de objeto mide 17 pixeles de altura contra 21 pixeles del combobox. ¿Cuatro pixels es mucho?

// Saludos

[elcigarra]

4 pixels en 21 es aproximadamente el 20%. No estoy seguro en altura de un combobox, pero en mi sueldo un 20% menos es mucho

Mas allá de la broma, no importa si es mucho o poco, el tema es que ese combobox no es igual y de alguna forma lo hicieron.

[elcigarra]

Desde el código de una aplicación se puede hacer poniendo en el FormCreate del formulario donde está el combo:

 
procedure TForm1.FormCreate(Sender: TObject);
begin
// Angosto los comboboxes
SetWindowRgn(ComboBox1.Handle, CreateRectRgn(0,2,Width,Height-2), True);

y poniendo encima algún botón que oficie de DropDown Button y que además tape el botón cortado.

El tema es que el DropDown sale dos pixels separado abajo. Se podría definir la región así

SetWindowRgn(ComboBox1.Handle, CreateRectRgn(0,4,Width,Height), True);

Pero en este caso el texto no sale centrado
Yo lo subsané con la desprolijidad de definir una región de 0 pixels y desaparecerlo totalmente. Arriba con un TEdit y un botón está todo. El resto es código.

Mi idea era hacer un componente al que inicialmente le pueda definir una región:

constructor TMiComboBox.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  FRegion := CreateRectRgn(2,2,Width-2,Height-2);
  SetWindowRgn(Handle, FRegion, True);
end;

El tema que en ejecución sale el error
"Control '' has no parent window"
Alguien sabe que tengo que ponerle al componente (de tipo TComboBox) para que no me de este error?