Lave sin egen VCL

type

  TMyComp = class(TComponent)
  private
    FFlag: Boolean;
    FTal: Double;
    FTekst: String;
    procedure SetFlag(const Value: Boolean);
    procedure SetTal(const Value: Double);
    procedure SetTekst(const Value: String);
  public
  published
    property Tal : Double read FTal write SetTal;
    property Tekst : String read FTekst write SetTekst;
    property Flag : Boolean read FFlag write SetFlag;
  end;

implementation

{ TMyComp }

procedure TMyComp.SetFlag(const Value: Boolean);
begin
  FFlag := Value;
end;

procedure TMyComp.SetTal(const Value: Double);
begin
  FTal := Value;
end;

procedure TMyComp.SetTekst(const Value: String);
begin
  FTekst := Value;
end;

end.


Her er noget kode til componenten, så kan du forske lidt i hvordan du installerer den

/Martin

Jeg kigger lige på det martinlind :o)

martinlind Jeg fik det til at virke... Takker mange gange for hjælpen...
Men hvordan kan jeg få "Flag" lavet om til en onResultat i Events i stedet for "Flag" i Properties ???

Det kan du ved at lave en NotifyEvent prøv at søg lidt på den i hjælpen

ok... tak for det :o)