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.