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 ...