Borderstyle einer Combobox?

[Basic-Master]

Hi,
gibt es eine möglichkeit bei einer combobox den borderstyle auf bsNone umzustellen :roll:

[DelphiDeveloper]

es ist IMHO gar nicht so einfach.

Delphi-Quellcode:

 TComboBoxWithBorderStyle = class(TComboBox)
  private
    { Private-Deklarationen }
    FBorderStyle: TBorderStyle;
    procedure SetBorderStyle(const Value: TBorderStyle);
     protected
    { Protected-Deklarationen }
  public
    { Public-Deklarationen }
    published
    { Published-Deklarationen }
     property BorderStyle: TBorderStyle read FBorderStyle write SetBorderStyle default bsSingle;
  end;

Du kannst zwar schnell das Property ergaenzen aber dann geht die Arbeit im SetBorderStyle
erst richtig los. Du muss deine ComboBox ja jetzt anders zeichnen lassen. Das Edit den PfeilButton
und evtl. auch noch die aufgeklappte Box.
Ich wuerde mal nach FlatComboBox googlen und schauen wie die das dort gemacht
haben.

[neolithos]

Versuch mal das

Delphi-Quellcode:

SetWindowLong(ComboBox1.Handle, GWL_EXSTYLE, GetWindowLong(ComboBox1.Handle, GWL_EXSTYLE) and not WS_EX_CLIENTEDGE);

Geht das nicht muss ich stärkere geschütze Auffahren

[SirThornberry]

@neolithos: das geht nicht

[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;

:gruebel:

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

[SirThornberry]

geht gar nicht:
1.) Das override musste hinter der implementation weg
2.) In der Zeile

Delphi-Quellcode:

Params := Params and not WS_EX_CLIENTEDGE

kommt die Fehlermeldung: "Operator not applicable to this operandtype

[neolithos]

Klappt es jetzt?

[SirThornberry]

Nein, bleibt weiterhin mit border, aber das war auch anzunehmen da setwindowlong ja eigentlich das gleiche macht

[neolithos]

Stimmt!

Aber es liegt daran, das ich einem Irtum aufgelaufen bin. Ich dachte die ComboBox funktioniert ähnlich der TextBox. Dummerweise zeichnet die ComboBox den Rahmen anders.

[neolithos]

In der ComboBox wird der Rahmen auf die ClientArea gezeichnet. Das bedeutet, wenn man ihn loswerden möchte müsste man da ansetzen. Das ist aber recht gefährlich und umfangreich!

> falls du eine Lösung gefunden hast, poste sie bitte mal <