Rechtsklick auf Listbox öffnet PopUp "ohne Linksklick"

[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 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 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.

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 von Sharky:

Guckst Du im Anhang

Ischlibbedisch! Vielen lieben Dank