Invalid Class Typecast

**Wuaegner**

if ((Sender as TListBox).Items.Count>0) then Wieso erhalte ich hier diese Fehlermeldung?

Wogegen (Sender as TListBox).ItemIndex ... in einer anderen Prozedur klappt?

**DGL-luke**

welche fehlermeldung?

meine glaskugel ist wohl noch in Hannover, sorry

**Wuaegner**

Die aus meinem Titel, dachte das wäre klar

.
Nochmal etwas mehr Code:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm1.DigitaleRckwrtssuchemiteinbeziehen1Click(Sender: TObject);

var

  KeyInputs: array of TInput;

  KeyInputCount: Integer;

  wnd: HWND;

  s: string;

  procedure KeybdInput(VKey: Byte; Flags: DWORD);

  begin

    Inc(KeyInputCount);

    SetLength(KeyInputs, KeyInputCount);

    KeyInputs[KeyInputCount - 1].Itype := INPUT_KEYBOARD;

    with  KeyInputs[KeyInputCount - 1].ki do

    begin

      wVk := VKey;

      wScan := MapVirtualKey(wVk, 0);

      dwFlags := KEYEVENTF_EXTENDEDKEY;

      dwFlags := Flags or dwFlags;

      time := 0;

      dwExtraInfo := 0;

    end;

  end;

begin

  // Markierte Nummer in Zwischenablage

if (Sender as TListBox).Items.Count > 0 then  // HIER KOMMT DIE FEHLERMELDUNG

  begin

   s:= (Sender as TListBox).Items.Strings[(Sender as TListBox).ItemIndex];

   // Wenn Nummer nicht mit 0 beginnt setze 07433 davor

   if s[1]<>'0' then

   s:= '07433'+ s;

   ClipBoard.AsText:= s;

  end;

**DGL-luke**

nun, ich glaube "DigitaleRckwrtssuchemiteinbeziehen1" ist weniger eine TStringList als vielmehr z.b. ein TButton, oder? Sender ist immer das steuerelement, das gerade gefeuert hat.

**Wuaegner**

Ja stimmt,
Das ist ein Item aus Popup1, das nun aber von verschiedenen Listboxen aus aufgerufen werden kann. Wie kann ich dann den Sender , also der Listboxen, ins popupClick Ereignis mitgeben, damit der obige Code klappt?

**DGL-luke**

ganz einfach: sender raus, direkt die listbox rein.

**Wuaegner**

Ja nein, die Prozedur soll ja von verschiedenen ListBoxen aus aufgerufen werden und in ihr dann auch die jeweilige ListBox die aufgerufen hat, verarbeitet werden.

**DGL-luke**

oha, dann wirds ein wenig haariger.

mal sehen...

zuerst machst du im private-abschnitt deiner Formdeklaration einen listbox-pointer rein:

markieren

Delphi-Quellcode:

			type TForm1=class(TForm);

...

private

currentlistbox:TListBox;

dann machst du ein OnContextPopup für deine listboxen:

markieren

Delphi-Quellcode:

			procedure TGLForm.ListBox1ContextPopup(Sender: TObject; MousePos: TPoint;

  var Handled: Boolean);

begin

currentlistbox:=(sender as TListBox);

handled:=false;

end;

dieses ereignis musst du natürlich allen listboxen zuweisen, die das popup haben.

du kannst dann in deinem menuitem-onclick einfach currentlistbox.items verwenden.

**Wuaegner**

Klappt, vielen Dank

**Khabarakh**

Ich bin mir nicht sicher, aber versuch mal das:
CurrentListbox := TListBox(TPopUpMenu(Sender).PopUpComponent); [edit]Zu spät... aber es ist kürzer

[/edit]

Invalid Class Typecast

Invalid Class Typecast

Re: Invalid Class Typecast

Re: Invalid Class Typecast

Re: Invalid Class Typecast

Re: Invalid Class Typecast

Re: Invalid Class Typecast

Re: Invalid Class Typecast

Re: Invalid Class Typecast

Re: Invalid Class Typecast

Re: Invalid Class Typecast

Forumregeln

Wuaegner Registriert seit: 8. Feb 2004 406 Beiträge Delphi 6 Enterprise	#1 Invalid Class Typecast 6. Aug 2005, 21:55 if ((Sender as TListBox).Items.Count>0) then Wieso erhalte ich hier diese Fehlermeldung? Wogegen (Sender as TListBox).ItemIndex ... in einer anderen Prozedur klappt? Wuaegner Gruß Flo Unternehmensberatung
	Zitat

DGL-luke Registriert seit: 1. Apr 2005 Ort: Bad Tölz 4.149 Beiträge Delphi 2006 Professional	#2 Re: Invalid Class Typecast 6. Aug 2005, 22:05 welche fehlermeldung? meine glaskugel ist wohl noch in Hannover, sorry Lukas Erlacher Suche Grafiktablett. Spenden/Gebrauchtangebote willkommen. Gotteskrieger gesucht! For it is the chief characteristic of the religion of science that it works. - Isaac Asimov, Foundation I, Buch 1
	Zitat

Wuaegner Registriert seit: 8. Feb 2004 406 Beiträge Delphi 6 Enterprise	#5 Re: Invalid Class Typecast 6. Aug 2005, 22:12 Ja stimmt, Das ist ein Item aus Popup1, das nun aber von verschiedenen Listboxen aus aufgerufen werden kann. Wie kann ich dann den Sender , also der Listboxen, ins popupClick Ereignis mitgeben, damit der obige Code klappt? Wuaegner Gruß Flo Unternehmensberatung
	Zitat

DGL-luke Registriert seit: 1. Apr 2005 Ort: Bad Tölz 4.149 Beiträge Delphi 2006 Professional	#6 Re: Invalid Class Typecast 6. Aug 2005, 22:14 ganz einfach: sender raus, direkt die listbox rein. Lukas Erlacher Suche Grafiktablett. Spenden/Gebrauchtangebote willkommen. Gotteskrieger gesucht! For it is the chief characteristic of the religion of science that it works. - Isaac Asimov, Foundation I, Buch 1
	Zitat

Wuaegner Registriert seit: 8. Feb 2004 406 Beiträge Delphi 6 Enterprise	#7 Re: Invalid Class Typecast 6. Aug 2005, 22:15 Ja nein, die Prozedur soll ja von verschiedenen ListBoxen aus aufgerufen werden und in ihr dann auch die jeweilige ListBox die aufgerufen hat, verarbeitet werden. Wuaegner Gruß Flo Unternehmensberatung
	Zitat

Wuaegner Registriert seit: 8. Feb 2004 406 Beiträge Delphi 6 Enterprise	#9 Re: Invalid Class Typecast 6. Aug 2005, 22:34 Klappt, vielen Dank Wuaegner Gruß Flo Unternehmensberatung
	Zitat

Khabarakh Registriert seit: 18. Aug 2004 Ort: Brackenheim VS08 Pro 2.876 Beiträge	#10 Re: Invalid Class Typecast 6. Aug 2005, 22:35 Ich bin mir nicht sicher, aber versuch mal das: CurrentListbox := TListBox(TPopUpMenu(Sender).PopUpComponent); [edit]Zu spät... aber es ist kürzer [/edit] Sebastian Moderator in der EE
	Zitat