Delphi 3-Prof./Paradox7-Tabellen
Anfänger


Hallo,

wenn der Benutzer im Eingabedialog des InputQuery auf OK klickt, soll der im Eingabefeld stehende String der Listbox1 auf Form2 hinzugefügt werden. Wie bitte läßt sich das erreichen?

Besten Dank vorab!

Gruß
Lombi

Steht in der Delphi Hilfe zu InputQuery.

markieren

Delphi-Quellcode:

var wert:string;
[...]
wert:='Standardtext';
InputQuery('Überschrift','Bitte eingeben',wert);
ListBox1.Items.Add(wert);

In der Variable wert wird dann gespeichert, was der Benutzer eingibt. Gleichzeitig wird dieser Wert in InputQuery-Fenster vorgeschlagen.

[edit] Ich hasse Doppelposts [/edit]

@Ultimator: Und was passiert, wenn der Anwender auf "Abbrechen" klickt? Kleiner Tipp: InputQuery ist eine Funktion und gibt etwas zurück.

Zitat von Luckie:

@Ultimator: Und was passiert, wenn der Anwender auf "Abbrechen" klickt?

Dann sollte man das Ergebnis der Funktion von Typ Boolean berücksichtigen.

Davon abgesehen wollte er lediglich eine Lösung, wie man per InputQuery den eingegebenen Text in eine Listbox bringt, und keine Behandlung des Abbrechen-Buttons

Zitat von LOMBI:

wenn der Benutzer im Eingabedialog des InputQuery auf OK klickt

Das interpretiere ich so, dass es nicht passieren soll, wenn auf "Abbrechen" geklickt wird.

Zitat von LOMBI:

wenn der Benutzer im Eingabedialog des InputQuery auf OK klickt, soll der im Eingabefeld stehende String der Listbox1 auf Form2 hinzugefügt werden.

Zitat von Luckie:

Das interpretiere ich so, dass es nicht passieren soll, wenn auf "Abbrechen" geklickt wird.

Ich eben nicht, ist halt Interpretationssache

Aber wir wissen ja, was gemeint war, haben ihm geholfen und somit unsere Pflicht getan

Danke für Eure Hilfe!

Ich möchte gerne noch folgendes realisieren:

Aus der ListBox1 soll der Benutzer einen beliebigen String auswählen können. Dieser String soll dann im Eingabefeld des InputQuery erscheinen,
um seine Bezeichnung zu verändern und nach "ClickedOK" wieder der ListBox1
hinzugefügt werden.

Ebenso sollen markierte Strings aus der ListBox1 gelöscht werden. Wie geht das bitte mit der IndexOf-Methode?

Gruß
Lombi

Also, der in der LB ausgewählte Wert kommt erstmal in eine Variable.

markieren

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var ausgew, alt: string;
begin
  ausgew := ListBox1.Items.Strings[ListBox1.ItemIndex];
  alt := ausgew;
  if InputQuery('Überschrift', 'Bitte neuen Text eingeben', ausgew)
  then if
  ausgew<>alt then
    ListBox1.Items.Strings[ListBox1.Items.IndexOf(alt)] := ausgew;
end;

Habs getestet, funktioniert