InputBox???
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 |
|
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; |
Hier ist die Lösung:
Delphi-Quellcode:
...:cat:...
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; P.S. :roll: |
Drei Leute zur gleichen Zeit. :roll: Wer gibt jetzt die Runde? :mrgreen:
|
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.
|
Ich war nur "ganz gut"? :cry: Dabei ist mein Code identisch mit dem vom sakura. Könnte mich jemand mal bitte trösten? :oops:
|
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; |
Delphi-Quellcode:
:mrgreen:
text_eingabe:= 'test';
if not InputQuery('testCaption', 'testFrage', text_eingabe) then begin exit; end; |
@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:
Um auf False zu testen:
// korrekt
if boolWert then ... // schlecht, manchmal sogar fehlerbehaftet if boolWert = True then
Delphi-Quellcode:
...:cat:...
// korrekt
if not boolWert then ... // schlecht, teilweise langsamer if boolWert = False then |
Alle Zeitangaben in WEZ +1. Es ist jetzt 06:06 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