FindComponent und ComboBox

[MisterCP]

Hi,

Ich bastle jetzt schon seit mehr als einer Stunde an der richtigen Lösung, bekomme aber den blöden Fehler "EInvalidCast" einfach nicht weg. Kann mir event. jemand sagen was ich falsch mache?

Zur Erklärung:
- auf frmMain liegt ein Pagecontrol welches auf dem Panel[0] mehrere Comboboxen hat.
- in Untit untDraw sind verschiedene Funktionen zusammengafaßt welche auf diese ComboBoxen zugreifen

Delphi-Quellcode:

unit untDraw;

interface
    //--Einbindung externer Units-----------------------------------------------
    uses
        SysUtils, QStdCtrls, Classes,
        {Selbstdefinierte Units}
        untPublicFkt, untAISCOM, untLGU;

    //--Deklaration von Typen---------------------------------------------------
    //type

    //--Deklaration von Variablen-----------------------------------------------
    //var

    //Deklaration von öffentlichen Funktionen-----------------------------------
    procedure SetCfg_KonfAE_1;
    procedure SetCfg_KonfAE_2;
    procedure SetCfg_KonfR1_1;

    procedure RefreshPage_KonfAE_1;
    procedure RefreshPage_KonfAE_2;
    procedure RefreshPage_KonfR1_1;

{== Ende des Interface-Abschnitts==============================================}
implementation
uses
    untMain; //die "späte" Deklaration im Implementation-Abschnitt ist notwendig,
             //um eine Cross-Referenz zu vermeiden
             //(passiert, wenn sie im Interface-Abschnitt stehen würde)
{------------------------------------------------------------------------------}
procedure SetCfg_KonfAE_1;
    var
        i, k, AnzItems: Integer;
        objComboBox: TComponent;
    begin
        for i := 1 to 4 do begin
            objComboBox := frmMain.FindComponent ('cmbAE' + IntToStr(i) + '_Typ');
            //if ((objComboBox <> nil) and (objCombobox is TComboBox)) then begin
            if (objComboBox <> nil) then begin
                (objComboBox as TComboBox).clear;
                TComboBox(objComboBox).Items.Add('- - - - - - - - - -');
                AnzItems := GetInitLong(AppININame,'General', 'AnzEingangsTyp', 0, 20, 0);
                for k := 1 to AnzItems do begin
                    TComboBox(objComboBox).Items.Add(GetLngString(9000 + i, LngNr));
                end;{next k}
            end;{if}

Problem / Fragestellung:
- Abfrage (objCombobox is TComboBox) bringt false, warum???
- wenn ich mir objComboBox.ClassName anzeigen lasse steht da wie erwartet "TComboBox"
- lasse ich die Abrage weg kommt sowohl bei der Variante "(objComboBox as TComboBox).clear als auch bei der Variante in der Zeile darunter der Fehler EInvalidCast mit Message "Invalid Class typecast"

Vielen Dank schon mal für eure Hilfe.

[Björn Ole]

Hi.

Warum nicht so:

procedure SetCfg_KonfAE_1(objComboBox: TComboBox); Vielleicht auch eine Frage an die anderen, hat das irgendwelche Nachteile gegenüber FindComponent(objName)?

[mkinzler]

Warum deklarierst du objComboBox als TComponent?

[Apollonius]

@Björn: FindComponent sollte man vermeiden, wenn es geht. Hier sollen aber offensichtlich die Comboboxen durchgegangen werden, und da ist das eine einfache Lösung.

Zum Problem: Lass dir mal objComboBox.ClassName anzeigen.

[DeddyH]

Ööhm...

Zitat von MisterCP:

- wenn ich mir objComboBox.ClassName anzeigen lasse steht da wie erwartet "TComboBox"

[Apollonius]

Huch, entschuldige bitte. Werden die Comboboxen "normal" erzeugt? Verwendest du DLLs?

[Hawkeye219]

Hallo,

der Fehler dürfte durch die Verwendung der Unit QStdCtrls hervorgerufen werden. Wozu wird die überhaupt benötigt?

Gruß Hawkeye

[MisterCP]

Dank erst mal für die ANtworten.


@mkinzler: wegen der Rückgabe von Findcomponent. hab ich aus einem andern Projekt übernommen, da habe ich Schleifen über diverse Labels und da funktioniert das.

@apollonius: die Comboboxen werden in diesem Fall ganz normal in der Delphi-Umgebung auf der Form platziert.

@hawkeye: hatte vorher versucht objComboBox direkt als TComboBox zu deklarieren und da war das wohl nötig. Deaktivierung kann ich leider erst morgen früh probieren, habe den source im büro gelassen.

Was mich wundert ist halt die Tatsache, das FindComponent ja die Elemente findet (ist nicht nil), nur offensichtlich auf einmal die Klasse nicht mehr stimmt obwohl .ClassName sagt das es eine TComboBox ist. Ist einfach sehr Mysteriös.

[Fussball-Robby]

Zitat von Hawkeye219:

der Fehler dürfte durch die Verwendung der Unit QStdCtrls hervorgerufen werden.

Schätze ich auch. Da es TCombobox in StdCtrls und in QStdCtrls gibt, kann es sein, dass bei dem Vergleich die Klasse der einen und der anderen Unit verglichen werden, und dann ergibt das halt False.if .. is StdCtrls.TCombobox //< so könnte es funktionieren

[MisterCP]

Jungs, ihr seid spitze.http://www.delphipraxis.net/posting.php?mode=iframe

war tatsächlich das "Q" bei den uses vor "StdCtrls" zu viel.
Kommt davon wenn man in der CLX Doku nachschaut und nicht mit der VCL vergleicht.