Combobox Gewähltes Item auslesen.

[Ipaus]

Hallo,
ich benutze den FastScriptEditor.
Ich habe in einem Formular mehrere Comboboxen.
Im Ereignis OnAfterChange möchte ich ermitteln welcher Wert ausgewählt wurde.

Ich habe folgende Prozedur erstellt; (p_Sender: CHcFormsElement) muss eingestellt sein,
sonst kann ich die Prozedur nicht als Ereignis zuweisen.

Das erst 'OK' 'Showmessage-Fenster kommt noch - doch dann tritt der Fehler ein.

Delphi-Quellcode:

procedure Feststellen_ComboText(p_Sender: CHcFormsElement);
 var
    C_Sender : TCombobox;
    hs : TStringList;
    tx : String;
begin

 try
   C_Sender := TComboBox(p_Sender.UniqID);
   showmessage ('OK');
//   tx := C_Sender.items.text;   :twisted:
   tx := C_Sender.text;
   showmessage ('2. OK' + tx) ;

   hs.Text := C_Sender.items.text;
    showmessage (hs.Text) ;
 finally
   showmessage ('Fehler') ;
   hs.Free;
 end;
end;

[zeras]

Was ist denn
CHcFormsElement für ein Typ?

Mittels
C_Sender := TComboBox(p_Sender.UniqID); machst die ein Typcasting, aber ob das irgendwie kompatibel ist, sehe ich nicht.

Bitte auch deinen Quelltext mit dem "Delphi Symbol" formatieren. Findest du oben in der Menuleiste.

[hoika]

Hallo
viel zu wenig Infos.
Am besten machst du ein Minimalbeispiel -> Zip -> hier einstellen.

[UliBru]

tx := C_Sender.Items[C_Sender.ItemIndex]; ??

[Redeemer]

Der "Delphi"-Quelltext von dem Ding ist schlechter als der HTML-Quelltext von Microsoft-Office-Produkten.

Ich steig da nicht durch. Du castest da Dinge, von denen du den Typ nicht kennst. Ich glaube auch, dass du Quelltext änderst, den du nicht ändern sollst.

Zitat von zeras:

Bitte auch deinen Quelltext mit dem "Delphi Symbol" formatieren. Findest du oben in der Menuleiste.

[p80286]

Zitat von Ipaus:

Das erst 'OK' 'Showmessage-Fenster kommt noch - doch dann tritt der Fehler ein.

Welcher?

@UliBru
Mir scheint Du hast Recht, aber ein wenig Erläuterung könnte auch nicht schaden.

Gruß
K-H

[Ipaus]

Hallo,
Entschuldigung.

Ich arbeite mit dem FastScriptEditor in der Sprache 'PascalScript'. Kompiliert wird das ganze dann mit Delphi.
Im FormsDesigner haben die Objekte keine 'sprechende' Namen sondern eine UniqID mit der die Objekte Textbox, Button, Combobox identifiziert werden.
Der FormularDesigner kreirt eine .tdf Datei in der die Objekte des Formulars stehen.

Im FastScriptEditor kann Code hinterlegt werden.
Die Zuordnung der Objekte erfolgt über die UniqID.
Um z.B. das Textfeld Name anzusprechen muss zuerst dieses so definiert werden:

var
l_Name, l_Vorname, l_Haus : CHcFormsElement;
begin
l_Name := FindFormsElement('KBLH42ZV6CP7');

l_Name.description := 'IPAU'
end;

Mein Problem ist jetzt dass ich nicht auf das Combobox element zugreifen kann. D.h. ermitteln kann welches gewählt wurde.
Ich weiß auch nicht wie ich auf die Combobox zugreifen kann.

Ich habe eine Zip Datei angehängt.

Die Fehlermeldung die ausgegeben wurde:
Es ist ein Anwendungsfehler aufgetreten (EVariantTypeCastError).
Variante des Typs (UnicodeString) konnte nicht in Typ (Integer) konvertiert werden.