Brauche Hilfe bei Komponentenentwicklung allgemein

[jfheins]

So, hier eine einfache Kompo mit einem Timerfeld:

Soll heißen, ser wird nicht erstellt, sondern der User kann einen zuweisen, er kanns aber auch lassen

Sinn macht das z.B. mit einem Memo, wo du z.B. reinschreibst, was gerade gemacht wird

Delphi-Quellcode:

unit Unit2;

interface

uses
   Classes, ExtCtrls;

type
   TCompo1 = class(TComponent)
   protected
      FTimer: TTimer;
   public
      constructor Create (AOwner: TComponent); override;
      destructor Destroy; override;

      function GetInterval: Integer;
   published
      property Timer: TTimer read FTimer write FTimer;
   end;

   procedure Register;

implementation

{ TCompo1 }

procedure Register;
begin
   RegisterComponents('Eigene Komponenten', [TCompo1]);
end;

constructor TCompo1.Create (AOwner: TComponent);
begin
   inherited;
end;

destructor TCompo1.Destroy;
begin
   inherited;
end;

function TCompo1.GetInterval: Integer;
begin
   if Timer <> nil then
      Result := Timer.Interval
   else
      Result := -1;
end;

end.

P.S. Nein, der rote Kasten war tot, und ja, ich habe eine Zeit gebraucht, bis ich auf "Antworten" geklickt habe ...