Listtbox- kopieren ?

[marabu]

Hi vader,

gefällt dir das?

Delphi-Quellcode:

procedure TDemoForm.CopyButtonClick(Sender: TObject);
var
  i: integer;
  sl: TStringList;
begin
  if ListBox.SelCount = 0 then Exit;
  sl := TStringList.Create;
  for i := 0 to ListBox.Items.Count - 1 do
    if ListBox.Selected[i] then
      sl.Add(ListBox.Items[i]);
  ClipBoard.AsText := sl.Text;
  sl.Free;
end;

Grüße vom marabu