Objekt-typ übergeben

[MechMac666]

Delphi-Quellcode:

  type elemente =record
   name:string;
   typ:twincontrol;
  end;

  var elem: array[0..10] of elemente;


implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var test:tbutton;
begin

test:=tbutton.Create(form1);
test.Left:=10;
test.Top:=10;
test.caption:='huhu';
test.Width:=80;
test.Height:=22;
test.Name:='uggi';

elem[1].name:='uggi';
elem[1].typ:=test;

elem[1].typ(form1.FindComponent(elem[1].name)).left:=20;

end;

end.

So geht es natürlich nicht. Ich möchte mit der folgenden Zeile verschiedene Objekte ansprechen.
elem[1].typ(form1.FindComponent(elem[1].name)).left:=20;

Labels, buttons, etc.
Es ist sichergestellt das nur Eigenschaften abgefragt werden, die die alle haben.

elem[1].typ soll quasi für die Standard-Controlls stehen, bzw. kann ich bei der OnCreate Procedure ja auch etwas zuweisen à la elem[1].typ:=test;
Nur ich weiß nicht was das für ein Datentyp sein muss.

[himitsu]

Delphi-Quellcode:

var elem: array[0..10] of TWinControl;

elem[...] := TEdit.Create(...);

elem[...].Width := 123;

Wenn alle Typen eh die gleichen gbenötigten Eigenschaften besitzen, dann nimm statt TWinControl einen Typen, welchen alle als gemeinsamen Vorfahren haben und fertig.

[MechMac666]

Habs gerade hinbekommen.

Delphi-Quellcode:

    var elem: array[0..10] of string;


implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var test:tbutton;
    test2:tedit;
begin

test:=tbutton.Create(form1);
test.Parent:=(form1);
test.Left:=20;
test.Top:=20;
test.caption:='huhu';
test.Width:=80;
test.Height:=22;
test.Name:='uggi';
elem[1]:='uggi';

test2:=tedit.Create(form1);
test2.Parent:=(form1);
test2.Left:=20;
test2.Top:=40;
test2.text:='huhu';
test2.Width:=80;
test2.Height:=22;
test2.Name:='uggi2';
elem[2]:='uggi2';

end;

procedure TForm1.Button2Click(Sender: TObject);
var
  I: Integer;
begin
for I := 1 to high(elem) do
if elem[i]<>'' then
twincontrol(form1.FindComponent(elem[i])).left:=100;
end;

EDIT:
Ich sehe gerade, jetzt kann ich mir den Typ auch schenken *lol*
.
.
So, aktueller Stand.

[himitsu]

Nochmals:
Wozu erst die Elemente suchen wenn man direkt drauf zugreifen kann?

auf elem greist du über einen Index zu und genau den selben Index kann man auch direkt nutzen ... siehe einen Post weiter vorne.

[MechMac666]

@himitsu

Ok, jetzt hab ich`s verstanden. Thx.