Doppelklick auf ListBox Item, danach neues Fenster

[FriFra]

Delphi-Quellcode:

procedure TForm1.ListBox1DblClick(Sender: TObject); 
begin 
  if ListBox1.ItemIndex > -1 then
    Form2.Caption := 'Infos über ' + ListBox1.Items[ListBox1.ItemIndex]; 

    { Hier kommt der übrige Code... }
    
    Form2.Show; 
  end; 
end;