1:
2:
3:
4:
5:
6:
7:

type
  THilfsklasse = class(TObject)
    Public
      Eigenschaft1 : integer;
      Eigenschaft2 : Integer;
      Eigenschaft3 : String;
  end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

var instanz : THilfsklasse;
begin

  instanz := THilfsklasse.Create(); {Instanz erzeugen}
  try

    {Eigenschaften zuweisen}
    instanz.Eigenschaft1 := 4711;
    instanz.Eigenschaft2 := 123;
    instanz.Eigenschaft3 := 'test';
  finally
    {Instanz wieder freigeben}
    instanz.Free;
  end;


end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:

unit MYButton;
interface
uses

     Windows, SysUtils, Messages, Classes, Controls, Forms , Buttons;
Type
  TMyButton = class(TButton)
  private
    F_iInfo1:Integer;
    F_sInfo1:String;  
  protected
  Procedure SetiInfo1(Value:Integer)
  Procedure SetsInfo1(Value:String)  
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
  published
  Property iInfo1:Integer Read F_iInfo1 Write SetiInfo1;
  Property sInfo1:Integer Read F_sInfo1 Write SetsInfo1;
  end;

procedure Register;
implementation
Procedure TMyButton.SetiInfo1(Value:Integer);
begin
  F_iInfo1 := Value;
  // >> + was auch immer Du hier tun wills
end;

procedure Register;
begin
  RegisterComponents('WoAuchImmer', [TMyButton]);
end;


end.                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

  THilfklasse = class(TObject)
    Private
      {Wir deklarieren uns private Variablen, die die Daten halten}
      F_Eigenschaft1 : Integer;
      F_Eigenschaft2 : Integer;
      F_Eigenschaft3 : Integer;
    Public
      {Jetzt die Eigentlichen Properties}
      Property Eigenschaft1 : integer Read F_Eigenschaft1; {Diese Propertyp ist read only}
      Property Eigenschaft2 : integer Read F_Eigenschaft2 Write F_Eigenschaft2; {Diese Property ist read und write}
      Property Eigenschaft3 : integer Write F_Eigenschaft2; {Diese Property ist write only}
  end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:

 THilfklasse = class(TObject)
    Private
      {Wir deklarieren uns private Variablen, die die Daten halten}
      F_Eigenschaft1 : Integer;
      F_Eigenschaft2 : Integer;
      F_Eigenschaft3 : Integer;
    function get_Eigenschaft1: integer;
    function get_Eigenschaft2: integer;
    procedure set_Eigenschaft2(const Value: integer);
    procedure set_Eigenschaft3(const Value: integer);
    Public
      {Jetzt die Eigentlichen Properties}
      Property Eigenschaft1 : integer Read get_Eigenschaft1; {Diese Propertyp ist read only}
      Property Eigenschaft2 : integer Read get_Eigenschaft2 Write set_Eigenschaft2; {Diese Property ist read und write}
      Property Eigenschaft3 : integer Write set_Eigenschaft3; {Diese Property ist write only}
  end;
implementation

{ THilfklasse }

function THilfklasse.get_Eigenschaft1: integer;
begin
  result := F_Eigenschaft1;
end;

function THilfklasse.get_Eigenschaft2: integer;
begin
  result := F_Eigenschaft2;
end;

procedure THilfklasse.set_Eigenschaft2(const Value: integer);
begin
  F_Eigenschaft2 := Value;
end;

procedure THilfklasse.set_Eigenschaft3(const Value: integer);
begin
  F_Eigenschaft3 := Value;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:

type 
  TMyButton = class
  private
    FAdditionalInfo: integer; //nur als Beispiel
    FButton: TButton;
  public
    property AdditionalInfo: integer read FAdditionalInfo write FAdditionalInfo;
    property Button: TButton read FButton;
  end;                    

1:
2:

private
    F_CurrentActivityNumber: integer;                    

1:
2:
3:
4:

private
  FMyVar: integer;
public
  property MyVar: integer read FMyVar write FMyVar;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:

type nameless = class(TObject)

    private

    F_CurrentActivityNumber: integer;
    F_NameOfButton: string;
    F_NextActivityNumber: integer;
    F_Telegramtyp :integer;

    {F_get_CurrentActivityNumber: integer;
    F_get_NameOfButton: string;
    F_get_NextActivityNumber: integer;
    F_get_Telegramtyp :integer;}


    {procedure set_CurrentActivityNumber(const Value: integer);
    procedure set_NameOfButton (const Value: integer);
    procedure set_ActivityNumber (const Value: integer);
    procedure set_Telegramtyp (const Value: integer);}

    Public

    {property CurrentActivityNumber : Integer Read F_get_CurrentActivityNumber Write set_CurrentActivityNumber;
    property NameOfButton : String Read F_get_NameOfButton Write set_NameOfButton;
    property TextActivityNumber : Integer Read F_get_NextActivityNumber Write set_ActivityNumber;
    property Telegramtyp : Integer Read F_get_Telegramtyp Write set_Telegramtyp;}

    property CurrentActivityNumber : Integer Read F_CurrentActivityNumber Write F_CurrentActivityNumber;
    property NameOfButton : String Read F_NameOfButton Write F_NameOfButton;
    property TextActivityNumber : Integer Read F_NextActivityNumber Write F_NextActivityNumber;
    property Telegramtyp : Integer Read F_Telegramtyp Write F_Telegramtyp;

  end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

type Tnameless = class(TObject)

    private

 F_CurrentActivityNumber: integer;
 F_NameOfButton: string;
 F_NextActivityNumber: integer;
 F_Telegramtyp :integer;

    procedure set_CurrentActivityNumber(const Value: integer);
    procedure set_NameOfButton (const Value: integer);
    procedure set_ActivityNumber (const Value: integer);
    procedure set_Telegramtyp (const Value: integer);

    Public

    property CurrentActivityNumber : Integer Read F_CurrentActivityNumber Write F_CurrentActivityNumber;
    property NameOfButton : String Read F_NameOfButton Write F_NameOfButton;
    property NextActivityNumber : Integer Read F_NextActivityNumber Write F_NextActivityNumber;
    property Telegramtyp : Integer Read F_Telegramtyp Write F_Telegramtyp;
  end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

// Implementierung

begin

  Properties := Tnameless.Create();
  try

    properties.CurrentActivityNumber := tempList[0];
    properties.NameOfButton :=tempList[1] ;
    properties.NextActivityNumber := tempList[2];
    properties.Telegramtyp := tempList[3];

  finally
    properties.Free;
  end;                    

1:
2:
3:
4:
5:
6:
7:

begin
            Readln(FDatafile, daten);
            if copy(daten,1,1) <> '%' then 
 begin
                tempList.Delimiter := ';';  
                tempList.StrictDelimiter := true;   
                tempList.DelimitedText := daten;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:

unit uButtontest;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IniFiles, Contnrs;

type
  TMyButtonclass = class
  private
    FAdditionaldata: Integer;
    FButton: TButton;
  public
    constructor Create;
    destructor Destroy;override;
    property AdditionalData: integer read FAdditionaldata write FAdditionaldata;
    property Button: TButton read FButton;
  end;

  TfrmButtontest = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private-Deklarationen }
    FButtons: TObjectList;
    procedure ShowButtonInfo(Sender: TObject);
  public
    { Public-Deklarationen }
  end;

var
  frmButtontest: TfrmButtontest;

implementation

{$R *.dfm}

const IniName = 'C:\temp\Test.ini';

{ TMyButtonclass }

//Im Konstruktor wird der Button automatisch erzeugt
constructor TMyButtonclass.Create;
begin
  inherited Create;
  FButton := TButton.Create(nil);
end;

//... und im Destruktor automatisch freigegeben
destructor TMyButtonclass.Destroy;
begin
  FButton.Free;
  inherited;
end;

procedure TfrmButtontest.FormCreate(Sender: TObject);
var iIni: TIniFile;
    Sections: TStringList;
    i: Integer;
    Buttonclass: TMyButtonclass;
begin
  //Objectlist anlegen
  FButtons := TObjectList.Create;
  iIni := TIniFile.Create(IniName);
  try
    //Ini auslesen
    Sections := TStringList.Create;
    try
      iIni.ReadSections(Sections);
      //pro Abschnitt ein Button
      for I := 0 to Sections.Count - 1 do
        begin
          Buttonclass := TMyButtonclass.Create;
          //Eigenschaften aus der Ini auslesen und zuweisen
          Buttonclass.Button.Name := Sections[i];
          Buttonclass.Button.Parent := Self;
          Buttonclass.Button.Left := iIni.ReadInteger(Sections[i],'Left',0);
          Buttonclass.Button.Top := iIni.ReadInteger(Sections[i],'Top',0);
          Buttonclass.Button.Width := iIni.ReadInteger(Sections[i],'Width',0);
          Buttonclass.Button.Height := iIni.ReadInteger(Sections[i],'Height',0);
          Buttonclass.Button.Caption := iIni.ReadString(Sections[i],'Caption','');
          //OnClick-Handler dynamisch zuweisen
          Buttonclass.Button.OnClick := ShowButtonInfo;
          Buttonclass.AdditionalData := i;
          //Button in der Objectlist ablegen
          FButtons.Add(Buttonclass);
        end;
    finally
      Sections.Free;
    end;
  finally
    iIni.Free;
  end;
end;

procedure TfrmButtontest.FormDestroy(Sender: TObject);
begin
  //Objectlist freigeben
  FButtons.Free;
end;

procedure TfrmButtontest.ShowButtonInfo(Sender: TObject);
begin
  if Sender is TButton then
    ShowMessage(Format('Ich bin der Button "%s", meine Caption ist "%s"',
                [TButton(Sender).Name,TButton(Sender).Caption]));
end;

end.                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

[Bla]
Caption=Blubb
Left=1
Top=10
Width=75
Height=25

[Blubb]
Caption=Wuppdi
Left=1
Top=40
Width=75
Height=25                    

1:

FButton := TButton.Create(self);                    

1:
2:
3:
4:
5:
6:
7:

Type TMyButton = class(TButton)
     public
       ExtraInteger1 : Integer;
       ExtraInteger2 : Integer;
       ExtraString1  : String;
       ExtraString2  : String;
     end;                    

1:
2:
3:
4:
5:
6:

FMyButton := TMyButton.Create(Self);
FMyButton.ExtraInteger := 5;
FMyButton.ExtraString := 'TestString';
FMyButton.Height := 25;
FMyButton.Name := 'Button1';
FMyButton.Caption := 'Drück mich ganz lieb'                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

var FMyButtons : TList;
    MyButton : TMyButton;
begin
  For i := 1 To ButtonCount Do begin  // ButtonCount ist die Anzahl der Button, die Du aus der Datei holst
    MyButton := TMyButton.Create(Self);
    MyButton.Top := 23;               // hier setzt Du die Variablen, die Du aus der Datei liest
    ...
    MyButton.ExtraInteger1 := 15;     // hier die extra Werte
    ...
    FMyButtons.Add(MyButton);         // und in die Liste einfügen
    MyButton.OnClick := MyOnClick;
  end;
end;                    

1:

TMyButton(FMyButtons.Items[idx]).ExtraInteger1 := 444; // idx ist der index in der Liste des jeweiligen Buttons                    

1:
2:
3:
4:
5:

While FMyButtons.Count > 0 Do begin
  TMyButton(FMyButtons.Items[0]).Free;
  FMyButtons.Delete(0);
end;
FreeAndNil(FMyButtons);                    

1:

TMyButton(Sender).ExtraInteger1 := 12;                    

1:
2:
3:

begin
  FMyButtons := TList.Create;
end;