Hallo D'ler.

Mit folgendem Code kann ich mir die Position eines Items in einer ListBox anzeigen lassen (PopUpMenu)

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.ListBox1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
 Idx: Integer;
 Name: String;
begin
 Idx := ListBox1.ItemAtPos(Point(X,Y), True);
 if Idx<>-1 then
  begin
   Titel1.Caption := Format('%d', [Idx]);
   Name1.Caption := Format('%s', [Name]);
   Ordner1.Caption := Format('%s', [Dir]);
  end
 else
   Titel1.Caption := 'Keine Angabe';
   Name1.Caption := 'Keine Angabe';
   Ordner1.Caption := 'Keine Angabe';
end;

Das Problem besteht jetzt darin, dass ich nicht den Namen ([Name]) des Items und dessen
Speicherort ([Dir]) angezeigt bekomme.

Was mache ich falsch?

Hallo,

erstmal fehlt nach dem else begin und end.

Woher kommen denn [Dir] und [Name]?

Ich zitiere aus der OH, was ItemAtPos macht:

OH:

Mit ItemAtPos können Sie feststellen, ob an einer bestimmten Stelle des Steuerelements ein Eintrag vorhanden ist.

Der Parameter Pos gibt in Koordinaten relativ zum Fenster den Punkt innerhalb des Steuerelements an. Wenn Pos unterhalb des letzten Eintrags liegt, bestimmt der Parameter Existing den Rückgabewert. Wenn Existing true ist, gibt ItemAtPos -1 zurück, was bedeutet, dass an diesem Punkt kein Eintrag vorhanden ist. Ist Existing false, gibt ItemAtPos den um 1 erhöhten Index des letzten Eintrags zurück.

Alt:
Name1.Caption := Format('%s', [Name]); Also den Inhalt von diesem ListboxItem bekommst du mit:
Neu:
Name1.Caption := ListBox1.Items[idx]; Format brauchst du nicht.

Da weiß ich nicht was meinst!???
Ordner1.Caption := Format('%s', [Dir]); ???

Was ItemAtPos macht wusste ich, es wahr tatsächlich das Begin und End :/

Jetzt aber noch etwas anderes:
Ich bekomme bei
Name1.Caption := ListBox1.Items[Idx];
einen kompletten Pfad zurück. Ich habe damals schon etwas mit Canvas herumgespielt wobei man den Pfad kürzen konnte.

Ist es aber auch irgentwie möglich das noch in Name1.Caption := ListBox1.Items[Idx]; zu integrieren? (ExtraxtFileName)


Edit:
Wieso frage ich eigentlich?
Name1.Caption := ExtractFilename(ListBox1.Items[Idx]);