Registriert seit: 9. Apr 2003
Ort: Köln
256 Beiträge
Delphi XE2 Enterprise
|
operator is und as
17. Nov 2003, 21:45
ich habe folgendes Problem
FormA mit Property Blabla
FormB mit Property Blabla
Beide Formulare rufen FormC auf, in der das property Blabla gesetzt wird
mit dem "is" und "as" Operator bzw. "self.owner" kann ich zwar festellen welchem formular
ich das Property fülle aber ich suche nach einer eleganteren Lösung als die folgende:
in FormC:
if self.owner is TFormA then
with self.owner as TFormA do begin
BlaBla := irgendwas;
...
end;
if self.owner is TFormB then
with self.owner as TFormB do begin
BlaBla := irgendwas;
...
end;
Kennt jemand eine elegantere Möglichkeit?
mfg
DelphiDeveloper
|