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:

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:

Delphi-Quellcode:

type TForm1=class(TForm);
...
private
currentlistbox:TListBox;

dann machst du ein OnContextPopup für deine listboxen:

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]