Markierten Wert aus Listbox übernehmen

[Sharky]

Hai janine_k,

ersteinmal : "Herzlich Willkommen in der Delphi-PRAXIS"

Zitat von janine_k:

... Doch wie kann ich überprüfen ob ein Wert markiert ist und diesen gegebenenfalls auslesen?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if (ListBox1.ItemIndex <> -1) then
  begin
    Label1.Caption := ListBox1.Items[ListBox1.ItemIndex];
  end
  else
  begin
    ShowMessage ('Nix markiert *blubb*');
  end;
end;

[Edit]Ich muss einfach schneller tippen. Da waren zwei flotter als der Hai[/Edit]