InputBox???

[Jazz]

gibt es eine InputBox, der man Caption, Frage und Standardantwort mitgeben kann und zusätzlich rausfinden ob ok oder abbrechen geklickt wird.
Mit InputBox kann ich nicht feststellen ob Ok oder Abbrechen und mit InputQuery kann ich keine Standardantwort vorgeben. THX4Help

[Daniel B]

Hallo,

siehe hier in der Library.

Grüsse, Daniel :hi:

[Luckie]

Lesen bildet:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  s : String;
begin
  s := 'Hello World';
  if InputQuery('Meine InputBox', 'Gib was ein', s) then
    Caption := s;
end;

[sakura]

Hier ist die Lösung:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  InputData: string;
begin
  InputData := 'Die Standardantwort...';
  if InputQuery('Die Überschrift', 'Der Prompt', InputData) then
    ShowMessage('ja: ' + InputData)
  else
    ShowMessage('nein');
end;

...:cat:...

P.S. :roll:

[Luckie]

Drei Leute zur gleichen Zeit. :roll: Wer gibt jetzt die Runde? :mrgreen:

[Jazz]

Am eindeutigsten war die Lösung von sakura, Luckie war ganz gut und Daniel B. hat irgenwie meine Frage net ganz verstanden, aber trotzdem Danke für alle Mühe.

[Luckie]

Ich war nur "ganz gut"? :cry: Dabei ist mein Code identisch mit dem vom sakura. Könnte mich jemand mal bitte trösten? :oops:

[Jazz]

Der sakura hats einfach ausführlicher, aber falls es dich tröstet habe deinen Code verwendet und modifiziert in

Delphi-Quellcode:

        
text_eingabe:= 'test';
if InputQuery('testCaption', 'testFrage', text_eingabe) = false then begin
   exit;
end;

[nailor]

Delphi-Quellcode:

text_eingabe:= 'test';
if not InputQuery('testCaption', 'testFrage', text_eingabe) then begin
   exit;
end;

:mrgreen:

[sakura]

@Jazz:

Was Nailor noch zum Ausdruck bringen wollte ist, daß bei boolschen Werten keine Vergleiche mit True/False gemacht werden sollten. Auf auf True setzen einfach nur den Wert angeben:

Delphi-Quellcode:

// korrekt
if boolWert then ...

// schlecht, manchmal sogar fehlerbehaftet
if boolWert = True then

Um auf False zu testen:

Delphi-Quellcode:

// korrekt
if not boolWert then ...

// schlecht, teilweise langsamer
if boolWert = False then

...:cat:...

[Jazz]

danke für die Nachhilfe.