Property i hjemmelavet komponenter.

Hej ..

Hvis man gerne vil kunne se en properties for en komponent i "Object Inspector"'en skrives følgende code for komponenten :


unit est;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, stdctrls;

type
  Test = class(TComponent)
  private
    FValue: integer;
    procedure SetValue(const Value: integer);
    { Private declarations }
  protected
    { Protected declarations }
  public
    { Public declarations }
    Constructor Create(AOwner : TComponent); override;
  published
    { Published declarations }
    property Value : integer read FValue write SetValue;
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Samples', [Test]);
end;

constructor Test.Create(AOwner: TComponent);
begin
    Inherited;
    Value := 10;
end;

procedure Test.SetValue(const Value: integer);
begin
  FValue := Value;
end;

end.


Men hvordan laver man en property som et rullegardin (Combobox) af strings hvor man kan vælge en?


CAD