Delphi-PRAXiS
Seite 1 von 2  1 2   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi InputBox??? (https://www.delphipraxis.net/4630-inputbox.html)

Jazz 6. Mai 2003 22:13


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

Daniel B 6. Mai 2003 22:19

Hallo,

siehe hier in der Library.

Grüsse, Daniel :hi:

Luckie 6. Mai 2003 22:19

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 6. Mai 2003 22:19

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 6. Mai 2003 22:24

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

Jazz 6. Mai 2003 22:27

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 6. Mai 2003 22:29

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 6. Mai 2003 22:44

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 6. Mai 2003 22:55

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

sakura 7. Mai 2003 09:49

@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:...


Alle Zeitangaben in WEZ +1. Es ist jetzt 06:06 Uhr.
Seite 1 von 2  1 2   

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