Code vereinfachen (obj as Tbutton)

[uligerhardt]

Zitat von DeddyH:

Versuch mal

Delphi-Quellcode:

if obj is TControl then
  TControl(obj).Caption := 'Blabla';

Ohne Gewähr

Fast. So geht's:

Delphi-Quellcode:

type
  THack_Control = class(TControl);

procedure Test(obj: TObject);
begin
  if obj is TControl then
    THack_Control(obj).Caption := 'Blabla';
end;