![]() |
Delphi-Version: 7
Hilfe mit published property einer Liste
Hallo,
als Anfänger weiß ich leider nicht, nach welchem Konstrukt ich suchen muss. Daher hier die Beschreibung, was ich erreichen möchte: Ich möchte in einer Komponente eine published property BaudRate haben. Der Nutzer der Komponente soll nur erlaubte Baudraten zur Auswahl haben z.B. (4800, 9600, 19200) als String oder als Integer. Wie lege ich sowas an? Vielen Dank für Eure Hilfe! |
AW: Hilfe mit published property einer Liste
Zitat:
Beim Aufzählungstype kann der Nutzer nur deine vorgegebenen Werte verwenden:
Delphi-Quellcode:
Oder Du verwendest Integer als Type. Dann kannst du entweder im Setter eine Exception auslösen, wenn ein Wert verwendet wird, der nicht gültig ist.
type
TBaudRate = (bt2400,bt4800,bt9600); TMyCompo = class(Tobject) private FBaudRate: TBaudRate; procedure SetBaudRate(const Value: TBaudRate); public Property BaudRate:TBaudRate read FBaudRate write SetBaudRate; end;
Delphi-Quellcode:
procedure TMyCompo.SetBaudRate(const Value: Integer);
begin if not ( (value = 2400) or (value = 4800) or (value = 9600) ) then raise Exception.Create('Ungültiger Wert für die BaudRate'); FBaudRate := Value; end; Oder Du setzt im Setter den naheliegensten Wert. (Beispiel: Nutzer möchte den Wert 4900 verwenden und du änderst im Setter den Wert auf den Gültigen Wert 4800. |
AW: Hilfe mit published property einer Liste
Super, danke! Das hilft mir weiter.
|
AW: Hilfe mit published property einer Liste
Und bei Integer kann man sich 'nen eigenen Property-Editor basteln, der die Auswahl als Combobox im OI anbietet,
zuzüglich zur Begrenzung im Setter. |
AW: Hilfe mit published property einer Liste
Gab es unter D7 schon Property-Editoren?
|
AW: Hilfe mit published property einer Liste
AFAIK gab es Property Editoren schon unter Delphi 1. Verwechselst Du da etwas? Und zum Thema: wenn man nur genau festgelegte Werte angeben kann (wie eben bei der Baudrate) würde ich den Wert nicht als Integer definieren, sondern wie bereits erwähnt eine Aufzählung verwenden. Alles andere verwirrt doch nur.
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 10:37 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz