Rechtsklick auf Listbox öffnet PopUp "ohne Linksklick"

[Aike]

Hallöchen,

ich habe im Forum schon gesucht, aber leider nichts Passendens/Funktionierendes gefunden.
Wenn ich auch meine Listbox rechtsklicke, soll das unter der Maus liegende Item markiert und das PopUpMenu geöffnet werden. Das wurde hier schonmal angesprochen, aber leider keine Lösung gefunden. Das Problem ist, dass, egal wo ich auf der Listbox rechtsklicke, das PopUpMenu immer zum letzten Eintrag gehört, der linksgeklickt wurde. (Ich hoffe, das war verständlich :zwinker:)
Es soll quasi so aussehen:

Delphi-Quellcode:

procedure TForm1.Listbox1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  if Button=mbRight then
  begin
    //Markiere unter dar Maus befindliches Listbox-Item (Knackpunkt)
    Showmessage('');
  end;
end;

Das Problem kann nicht so schwer zu beheben sein, schätze ich, aber ich komm nicht drauf, was man da machen könnte :oops:

Liebe Grüße
Aike

[Nils_13]

Du könntest es einfah markieren. So eine Art selected.
Beispiel:

Delphi-Quellcode:

var mp3file : string;
begin
  mp3File := Concat(txtFolder.Caption, playlist.Items.Strings[playlist.ItemIndex]);

Du musst es anpassen. TxtFolder = StaticText.

[Aike]

Delphi-Hilfe:
"Die Funktion [Concat] verknüpft mehrere Strings zu einem einzigen String."
Ich sehe nicht, wie mir eine Verknüpfung zweier Strings weiterhelfen sollte.

[Nils_13]

Zitat:

Zitat von Nils_13

Du könntest es einfah markieren. So eine Art selected.
Du musst es anpassen. TxtFolder = StaticText.

Du musst es ja auch anpassen, wie du es brauchst :zwinker: txtFolder kannst du dir sparen. Evtl. kannst du auch etwas mit integer Werten anfangen.

[Sharky]

Hai Aike,

versuche es doch mal so:

Delphi-Quellcode:

procedure TForm1.ListBox1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  cursorpos : TPoint;
  ndx : integer;
begin
  if Button=mbRight then
  begin
    cursorpos.X := X;
    cursorpos.Y := y;
    ndx := ListBox1.ItemAtPos(cursorpos,true);  // Item unter dem Cursor
    if (ndx <> -1) then
    begin
      with (Sender As TListBox) do
      begin
        Selected[ndx] := True;
        cursorpos :=  ClientToScreen(cursorpos);  // Positionsanpassung
        PopupMenu1.Popup(cursorpos.x + Left,cursorpos.Y + Top);
      end;
    end;
  end;
end;

[Aike]

Perfekt. Vielen Dank! :cheers:

[CLRS530]

Geht der Code auch, wenn die Listbox mehr EInträge hat, sodass man sie scrollen kann?
Ich habe mir das ein wenig anders geschrieben und musste TopItem mit einbauen(zeigt beim runterscrollen das oberste Element an)

Oder macht die ItemAtPoint Prozedur das eigenständig?

[Sharky]

Hai CLRS530,

Zitat:

Zitat von CLRS530

Geht der Code auch, wenn die Listbox mehr EInträge hat,...

Ich könnte jetzt ja sagen : "Versuche es doch einfacht" ;-)
Aber ich kann es ja auch sagen. -> Jup es geht. ItemAtPos benutzt intern nämlich auch wieder TopIndex zur Berechnung.

[Aike]

Ja, das hat gut funktioniert, aber jetzt wird's noch 'n bisschen komplizierter:

Das selbe soll jetzt auch funktionieren, wenn ich eine Datei auf die Listbox droppe. Da muss zwar kein PopUp kommen, sondern nur 'ne showmessage(), in WMDropFiles() kann ich leider deine Funktion nicht benutzen (hat zumindest bei mir nicht geklappt). Es muss eigentlich nur wieder auf das Item "geklickt" werden.

Ah, ich werd noch zum Hirsch. Weder OnDragOver, OnDropDown, noch OnEndDrop liefern mir was Anständiges. :pale:

[CLRS530]

Wenn du da was reindroppst, dann wird das doch an die letze stelle eingefügt oder?

[Aike]

Ich will nicht, dass es der Liste hinzugefügt wird, sondern dass der Name des Eintrages, der sich unter der Maus befindet, in einer showmessage() zum Vorschein kommt.

[Sharky]

Zitat:

Zitat von Aike

Ich will nicht, dass es der Liste hinzugefügt wird, sondern dass der Name des Eintrages, der sich unter der Maus befindet, in einer showmessage() zum Vorschein kommt.

Hai Aike,

nur um es zu verstehen:

Du hast also eine Listbox in der steht:

• blubb
• meow
• Keine Ahnung was sonst noch

Wenn Du nun vom Explorer aus eine Datei über z.B. "meow" ziehst und droppst soll in einer MessageBox das "meow" stehen?
Wenn ja: Was soll den mit der Datei passieren?

[Aike]

hihi, ok, dann ausführlich:
In der Listbox stehen einige Einträge, hinter denen sich Programm(pfad)e verbergen. Das über die Listbox gezogene Item soll nun mit dem Programm gestartet werden, über dem es fallen gelassen wurde.

"Wenn Du nun vom Explorer aus eine Datei über z.B. "meow" ziehst und droppst soll in einer MessageBox das "meow" stehen?"
- Quasi, ja :-) Den Rest schaffe ich (hoffentlich) alleine.

[Sharky]

Guckst Du im Anhang ;-)

[CLRS530]

Zitat:

Zitat von Aike

Ja, das hat gut funktioniert, aber jetzt wird's noch 'n bisschen komplizierter:

Das selbe soll jetzt auch funktionieren, wenn ich eine Datei auf die Listbox droppe. Da muss zwar kein PopUp kommen, sondern nur 'ne showmessage(), in WMDropFiles() kann ich leider deine Funktion nicht benutzen (hat zumindest bei mir nicht geklappt). Es muss eigentlich nur wieder auf das Item "geklickt" werden.

Ah, ich werd noch zum Hirsch. Weder OnDragOver, OnDropDown, noch OnEndDrop liefern mir was Anständiges. :pale:

Achso, du willst damit dann also später hinter diese Stelle einfügen?
Dafür musst du dne Code nur leicht modifizieren, denn bei Drag Over hast du X und Y, jedoch kein mrright, welches du auch garnicht brauchst

Delphi-Quellcode:

procedure TForm1.ListBox1DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
var
  cursorpos : TPoint;
  ndx : integer;
begin
  cursorpos.X := X;
  cursorpos.Y := y;
  ndx := ListBox1.ItemAtPos(cursorpos,true);  // Item unter dem Cursor
  if (ndx <> -1) then
    ShowMessage(Listbox1.Items[ndx])
end;

Das müsste das sein was du willst.
Wobei dämlich ist, da an diese Stelle ne SHowmessage auszuführen, aber das kannst du ja ändern, was auch immer du da hinwillst.

EDIT: da war ich wohl zu langsam, ich lasse das hier aber trotzdem mal stehen :)

[Aike]

Zitat:

Zitat von Sharky

Guckst Du im Anhang ;-)

Ischlibbedisch! Vielen lieben Dank :dancer2: