button, label... : variable

[Sunlight7]

Moin dino!

Meinst Du vielleicht so etwas?

Delphi-Quellcode:

   var Varibale:TComponent;
...
procedure TForm1.SetCaption;
begin
   If (Varibale is TButton) then
      TButton(Varibale).Caption:='Ich bin ein Button';

   If (Varibale is TLabel) then
      TLabel(Varibale).Caption:='Ich bin ein Label';

   If (Varibale is TCheckBox) then
      TCheckBox(Varibale).Caption:='Ich bin eine CheckBox';

   If (Varibale is TRadioButton) then
      TRadioButton(Varibale).Caption:='Ich bin ein RadioButton';
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
   Randomize;
   Case Random(4) of
      0: Varibale:=Button1;
      1: Varibale:=Label1;
      2: Varibale:=CheckBox1;
      3: Varibale:=RadioButton1;
   end;

   SetCaption;
end;