Typecast ohne Typ zu kennen?

[Sprint]

Zitat von alcaeus:

Jetzt dachte ich mir "ok, Caption ist in TControl deklariert, caste nach TControl und fertig is", aber ich hab die Rechnung wohl ohne Borlands geile Strategie gemacht, erstmal alles als protected zu deklarieren Was heißt das? Ja, dass erst TButton die property "Caption" als published deklariert, und man vorher keine Chance hat, drauf zuzugreifen.

Delphi-Quellcode:

type
  TMyControl = class(TControl)
  published
    property Caption;
  end;

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  TMyControl(Sender).Caption := 'Hello World!';
end;

Delphi-Quellcode:

procedure TForm1.Label1Click(Sender: TObject);
begin
  TMyControl(Sender).Caption := 'Hello World!';
end;