Listbox Items anklicken und eine Aktion starten

[N30N]

Moin, hab mal wieder ein kleines Problem ^^


Ich möchte ein Item aus einer Listbox anklicken und damit irgendeine Aktion starten.
Ich habe über die Suchfunktion diesen Thread gefunden, der ja genau meinem problem entspricht.

Dort wird folgendes geraten:

Zitat:

Zitat von DeddyH

Das Ereignis dürfte TListBox.OnClick sein und das Item bekommst Du über ListBox.Items[ListBox.ItemIndex]

Allerdings komm ich damit nicht so ganz zurecht.

Delphi-Quellcode:

procedure TListBox1.OnClick(Sender: TObject);
begin
ListBox1.Items[ListBox.ItemIndex]
end;

Mehr kann ich aus dem oben genannten Zitat nicht schließen. Kann mir das jemand etwas genauer erklären, für Delphi Noobs? ;)

[DeddyH]

Delphi-Quellcode:

procedure TListBox1.OnClick(Sender: TObject);
begin
  if ListBox.ItemIndex > -1 then
    ShowMessage(ListBox1.Items[ListBox.ItemIndex]);
end;

So in der Art war das gemeint :zwinker: , Du kannst ja je ItemIndex eine andere Aktion ausführen.

[taaktaak]

Moin, Moin,
alles richtig - nur du machst ja in der Proc nix! Mit ListBox1.Items[ListBox.ItemIndex] ermittelst du lediglich den aktuell selektierten Wert. Aber mit dieser Information tut man dann in der Regel auch etwas ...

Delphi-Quellcode:

//..
blabla:=ListBox1.Items[ListBox.ItemIndex] 
//..

[mkinzler]

Delphi-Quellcode:

procedure TForm1.listBox1Click(Sender: TObject);
begin
    Caption := (Sender as TListBox).Items[(Sender as TListBox).ItemIndex]; //Gibt Text als Fenstertext aus
end;
...
ListBox1.onClick := Listbox1Click;

oder halt durch Doppelklick beim Ereignis im OI

[Edit: TForm als Klasse war suboptimal]

[neko77]

Hi, bin verzweifelt, ich soll ein Programm erstellen und komm nicht weiter, da ich ein völliger Anfänger bin!!! :(

Ich will eine makierte zeile aus eine listbox in eine andere lisbox kopieren. wie geht das???

lg

neko

[-187-]

Fürs erste solltest du einen eigenen Thread aufmachen...

[neko77]

ich bin neu hier und hab keine geringste ahnung wie das hier abläuft-.- zu dem hab ich auch nicht viel zeit mich hier reinzufitzen sorry:(

[-187-]

..Whatever, hier dein Code:

Delphi-Quellcode:

ListBox2.Items.Add(ListBox1.Items.Strings[ListBox1.ItemIndex]);

Mach dich in Zukunft vorher schlau wie die Dinge ablaufen^

[DeddyH]

Sieh Dir den Code aus #2 noch einmal an. Statt des ShowMessage fügst Du den String dann nur noch den Items der ListBox2 hinzu, das ist alles.

[neko77]

:evil: sooo 'genervt'

danke

so nächste Frage:

Ich will aus einer Textdatei etw. raussuchen. dort stehen mehrere zeilen mit jeweils "Name;Geburtsdatum;Zahlen" durch eingabe des namens in ein editfeld möchte ich die zeilen herausfiltern wo der name enthalten ist und die in eine listbox schreiben.

:arrow:*verzweifelt*

[mkinzler]

Neue Frage, neuer Thread

[Luckie]

Bitte mach für ein neues Thema auch einen neuen Thread auf.