Announcement

**Robert Marquardt** · 14.01.2003, 10:44

wo ist denn das Problem? protected heisst doch nur das die Methode nur in abgeleiteten Klassen zugreifbar ist. Schlimmstenfalls muss man mit einem Ableitungstrick zugreifen. "TAbgeleitet = class(TBase);" und mit einem TBase-Objekt "TAbgeleitet(BaseObj).QueryInterface"

**Bernd Schulz** · 14.01.2003, 10:56

Hi! 
Erstmal Danke f�r die beeindruckend schnelle Antwort!!!! 
Das Problem ist, wenn ich (zwei/mehrere/beliebig viele) Klassen habe (z.B. TDBEdit und TDBGrid) mu� ich zu jeder Klasse eine abgeleitete Klasse schreiben. Kein Problem aber: Um jetzt eine Funktion aus dem Interface aufrufen zu k�nnen mu� ich den Typ ActiveControl kennen. 
Damit mache ich mir den Vorteil von Interfaces und QueryInterface aber wieder zunichte. 
Ich w�rde dann eine Konstruktion brauchen wie: 
var 
classn: string; 
begin 
classn := uppercase ( ActiveControl.classname ); 
if classn = 'TMYDBEDIT' then begin 
result := TMYDBEDIT ( ActiveControl ); 
exit; 
end; 
if classn = 'TMYDBGRID' then begin 
result := TMYDBGRID ( ActiveControl ); 
exit; 
end; 
usw.. 
Wenn man jetzt eine weitere Klasse mit dem Interface versehen m�chte mu� obiger Code wieder erweitert werden. 
Ich mu� irgendwie auf QueryInterface draufkommen oder das Ganze anders angehen! 
BYE BERN

**Robert Marquardt** · 14.01.2003, 11:36

Ich glaube wir warten mal auf Hagen. Der weiss genauer Bescheid. 
Ansonsten "if ActiveControl is TMyDBEdit then" ist doch etwas einfacher

Announcement

Mehrere DB Komponenten erweitern

Mehrere DB Komponenten erweitern

Comment

Comment

Comment