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