Einfache Combobox-Eigenschaften-editor

Einfache Combobox-Eigenschaften-editor

Einfache Combobox-Eigenschaften-editor : Mehreren tausend Tipps, um Ihr Leben einfacher machen.

Der folgende Code veranschaulicht eine Kombinationsfeld Feld Eigenschaft erstellen, Editor.
Mit Delphi 5 getestet
Einheit ComboTest;
Schnittstelle
verwendet
Windows, Nachrichten, SysUtils, Klassen, Graphics, Steuerelemente, Formulare, Dialoge,
StdCtrls, DsgnIntf;
Typ
TEditList = class(TEdit)
Private
FListValue: String;
veröffentlicht
Eigenschaft ListValue: Zeichenfolge lesen FListValue schreiben FListValue;
Ende;
Register des Verfahrens;
Umsetzung
Typ
TTextProperty = class(TPropertyEditor)
Private
FList: TStringList;
öffentliche
Konstruktor erstellen (const ADesigner: IFormDesigner;
APropCount: Integer); außer Kraft setzen;
Destruktor Destroy; außer Kraft setzen;
GetValue, Funktion: string; außer Kraft setzen;
Verfahren SetValue (const Value: String); außer Kraft setzen;
Prozedur GetValues(Proc: TGetStrProc); außer Kraft setzen;
GetAttributes-Funktion: TPropertyAttributes; außer Kraft setzen;
Ende;
Register des Verfahrens;
beginnen
RegisterComponents ('Proben', [TEditList]);
RegisterPropertyEditor(TypeInfo(string), TEditList,

'ListValue', TTextProperty);
Ende;
{TSList}
Konstruktor TTextProperty.Create (const ADesigner: IFormDesigner;
APropCount: Integer);
beginnen
geerbte Create (ADesigner, APropCount);
FList: = TStringList.Create;
versuchen Sie
FList.LoadFromFile('c:\customstrings.txt');
mit Ausnahme von
FList.Add ('Nummer 1');
FList.Add ('Eintrag 2');
Ende;
Ende;
Destruktor TTextProperty.Destroy;
beginnen
FList.SaveToFile('c:\customstrings.txt');
FList.Free;
geerbte Destroy;
Ende;
Funktion TTextProperty.GetAttributes: TPropertyAttributes;
beginnen
Ergebnis: = [PaValueList, PaSortList];
Ende;
Funktion TTextProperty.GetValue: string;
beginnen
Ergebnis: = (GetComponent(0) als TEditList). ListValue;
Ende;
Prozedur TTextProperty.GetValues(Proc: TGetStrProc);
var
I: Longint;
beginnen
für I: = 0 to FList.Count-1 tun
Proc(FList.Strings[I]);
Ende;
Procedure TTextProperty.SetValue (const Value: String);
beginnen
(GetComponent(0) als TEditList). ListValue: = Value;
Wenn FList.IndexOf(Value) =-1 then
FList.Add(Value);
Ende;
Ende.