Eine Komponente auf einen "X" Form Ansprechen?

[JasonDX]

Zitat von Karstadt:

(Application.FindComponent('Formular_73') as TXForm).TMyTable.machwas

das funktioniert nicht weil ich as TXForm nicht kenne.

(f_XX.FindComponent('Tabelle') as TMyTable).Open Sollte dann Funktionieren. Es ist allerdings nicht die sauberste Lösung, deswegen würd ich eher den Weg über ein Interface wählen.

Ich habs mal mit nem Button gemacht, es sollte nicht zu schwer sein das anzupassen:

Delphi-Quellcode:

type
  IButtonInterface = interface(IInterface)
    function GetButton: TButton;
    property b: TButton read GetButton;
  end;

  TForm1 = class(TForm, IButtonInterface)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    function GetButton: TButton;
  public
    property b: TButton read GetButton;
  end;

var
  Form1: TForm1;

implementation

procedure JustATest;
begin
  ShowMessage(IButtonInterface(Form1).b.Caption);
end;

{ TForm1 }

function TForm1.GetButton: TButton;
begin
  result := Button1;
end;

Zitat von Karstadt:

PS: Titeltext, ist aus meine sicht richtig!

Darüber ließe sich streiten... Über das verwenden von Delphi- und Quotetags nicht wirklich. Dat hier sollte als Bedienungsanleitung dafür reichen

greetz
Mike