ListVieweinträge auswählen

[TheMiller]

Hey Leute,

mal wieder eine Frage. Ich habe mal versucht, etwas mit der Listview zu programmieren. Jetzt habe ich da 3 icons drinn. Jetzt möchte ich eins auswählen und was ausführen lassen. Momentan schreibt er den Namen des Items in die Titelleiste. Später sollen richtige Funktionen ausgeführt werden.

In welches Ereignis muss ich was schreiben, dass er es auch wirklich ausführt. Ich habe OnClick und OnDblClick schon probiert. Dann führt er es aber auch aus, wenn ich daneben klicke...

Delphi-Quellcode:

Form7.Caption:=ListView1.Items.Item[ListView1.Selected.Index].Caption;

Ich hoffe, mir kann wer helfen! :hi:

[Gollum]

Hallo,

wie wäre es mit dem Ereignis OnSelectItem?

[TheMiller]

Ja, das hatte ich auch schon, aber da führt er das Ereignis immer 2mal aus. Wenn ich drauf klicke, zB auf Item1 dann zeigt er den namen Test1 in der Titelleiste an. Klicke ich dann auch Item2, kommt diese Meldung:

Delphi-Quellcode:

Zugriffsverletzung bei Adresse xxxxxxxxx in Modul 'xxx'. Lesen von Adresse xxxxxxxxxxxxxx

Dann klicke ich auf OK und er führt die korrekte Funktion aus.

Was ist das? Was mache ich falsch?

[Gollum]

Hallo,

versuche einmal folgendes:

Delphi-Quellcode:

procedure TForm1.ListView1SelectItem(Sender: TObject;
  Item: TListItem; Selected: Boolean);
begin
  if (Item=nil) then Exit;
  if Selected then MacheIrgendetwas;
end;

[TheMiller]

Das funktioniert. Nur warum ist das für solche einfachen Aktionen so aufwendig?`Ist das die einzige Lösung oder MUSS es so sein?

und wie kann ich das bei mehreren Items spezifizieren? Also, dass er bei Item3 die Message(y) zeigt und bei Item1 die Message(z)?

[Gollum]

Hallo,

die Procedure übergibt Dir doch das ausgewählte ListItem. Da hast Du doch alles was Du brauchst:

Delphi-Quellcode:

procedure TForm1.ListView1SelectItem(Sender: TObject;
  Item: TListItem; Selected: Boolean);
begin
  if (Item=nil) then Exit;
  if Selected then 
  begin
    if (Item.Index=0) then MacheDies
      else if (Item.Index=1) then MacheDas
        else if (Item.Caption='MeinItemText') then MacheWasGanzAnderes;
  end;
end;

[TheMiller]

Achso. Okay vielen Dank!!!

Werde ich dann testen!!! :firejump: