Borderstyle einer Combobox?

[neolithos]

Und wie sieht es damit aus:

Delphi-Quellcode:

TFlatCombo = class (TComboBox)
protected
  procedure CreateParams(var Params : TCreateParams); override;
end;

procedure TFlatCombo.CreateParams(var Params : TCreateParams); 
begin
  inherited;
  with Params do
    ExStyle := ExStyle and not WS_EX_CLIENTEDGE;
end;

EDIT: Fehler beseitigt! Wer lesen kann ist klar im Vorteil! Vorallem die eigenen Texte!