Listtbox- kopieren ?
hallo,
wie geht das wenn ich von einer listbox zeilen markieren will und die markierten zeilen dann kopieren in die zwischenablage den code zum makieren und löschen weiß ich, aber nicht zum kopieren ?
Delphi-Quellcode:
mfg vader
procedure TForm1.MarkiertesLoeschen1Click(Sender: TObject);
var i:integer; begin for i := ListBox1.Items.Count - 1 downto 0 do if ListBox1.Selected[i] then ListBox1.Items.Delete(i); end; |
Re: Listtbox- kopieren ?
Hi vader,
gefällt dir das?
Delphi-Quellcode:
Grüße vom marabu
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; |
Re: Listtbox- kopieren ?
hallo,
kommt die fehlermeldung :
Delphi-Quellcode:
mfg vader
[Fehler] Kuka.pas(379): Undefinierter Bezeichner: 'ClipBoard'
|
Re: Listtbox- kopieren ?
Das hilft:
Delphi-Quellcode:
marabu
uses
ClipBrd; |
Re: Listtbox- kopieren ?
hallo,
das klappt jetzt, aber wenn ich den befehl ausführe fürs kopieren kommt die fehlermeldung:
Delphi-Quellcode:
mfg vader
Listenindex überschreitet das Maximun (-1)
|
Re: Listtbox- kopieren ?
Zeig mal den Code, der den Fehler verursacht - bei meinem Code kann der Fehler nicht auftreten.
marabu |
Re: Listtbox- kopieren ?
hallo marabu,
danke,es funzt schon dein code,hab selbst was falsch reingeschrieben mfg vader |
Re: Listtbox- kopieren ?
hallo,
ich habe ein ähnliches problem... :? ich versuche grade einen PW-Generator zu erstellen. Mit Klick auf einen der 3 Buttons soll die PW-Liste, die in einer Linkbox angezeigt wird, direkt in die Zwischenablage kopiert werden...ich habe es bereits mit mehreren Dingen probiert, aber bei der Methode aus diesem Thread hat es auch nicht geklappt, keine Fehlermeldung oder so, ich klicke einfach auf "generieren und Clipboard" mit der Funktion, ein Wort mit 10 Zeichen aus Groß- und Kleinbuchstaben zu generieren und dieses dann ins Clipboard zu übernehmen. Dann wird das Wort generiert und auch in der Listbox angezeigt, aber nicht ins Clipboard übernommen. Ich habe es ausprobiert indem ich versuchte, es im Windows-Editor wieder einzufügen, aber es hat nicht geklappt...bin absoluter Delphi-Noob, hoffe aber trotzdem auf Hilfe :) edit: aktueller quellcode
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
var AnzZei : Integer; AnzPW : Integer; s1 : Tstringlist; i : Integer; begin listbox1.items.Clear; listbox1.Items.add (GeneratePassword(10, [pmLower, pmUpper])); s1 := TStringlist.create; listbox1.selectall; if ListBox1.SelCount = 0 then Exit; for i := 0 to ListBox1.Items.Count - 1 do if ListBox1.Selected[i] then s1.add(listbox1.Items[i]); ClipBoard.AsText := s1.Text; s1.Free; exit; end; |
Re: Listtbox- kopieren ?
Habe zum Test nur mal was ausprobiert. Also bestimmt nicht optimal, aber funtionsfähig.
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var AnzZei : Integer; AnzPW : Integer; s1 : Tstringlist; i : Integer; begin listbox1.items.Clear; listbox1.Items.add ('111'); listbox1.Items.add ('222'); listbox1.Items.add ('333'); s1 := TStringlist.create; listbox1.Items.Text;//.selectall; if ListBox1.SelCount = 0 then Exit; for i := 0 to ListBox1.Items.Count - 1 do if ListBox1.Selected[i] then s1.add(listbox1.Items[i]); ClipBoard.AsText := listbox1.Items.Text; s1.Free; exit; end; |
Re: Listtbox- kopieren ?
danke sehr, funktioniert!
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 21:00 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz