Inputbox buttons

[C64-Flo]

Hi!

Ich mal wieder mit einem kleinen aber feinen Problem..!

Wie kann ich den Buttons einer ´inputbox´ (ok, cancel) aktionen zuweisen?

mit dem (zb bei einer messagebox) normalen

Delphi-Quellcode:

knopf:=application.messagebox('','',36);
if knopf=idyes then begin
                    end;
if knopf=idno then begin
                   end;

usw


komm ich ja nicht weit bei einer inputbox, weil die eingabe ja als ´string´ behandelt wird...?
(und ohnehin ja nicht idyes oder idno, sondern eine string-eingabe ist... )



[edit=Admin]Delphi-Tags eingefügt. Künftig bitte selber machen. Danke. Mfg, Daniel[/edit]

[Die Muhkuh]

Hi,

zwei möglichkeiten

(1)

Delphi-Quellcode:

if Application.Messagebox('','',36) = IDYES then
  //mach was

(2)

Delphi-Quellcode:

if MessageDlg('',mtConfirmation,[mbOK, mbCancel],0) = mrOK then
  //mach was

[himitsu]

Delphi-Quellcode:

If Application.MessageBox('Text', 'FensterÜberschrift', 1) = IDOK Then Begin
  {OK}
End Else Begin
  {Abbrechen}
End;

[C64-Flo]

ja....

das ist bei messageboxes so...

aber wie läuft das dann bei ´INPUTBOXES´?

[scp]

Leute, er will doch die Knöpfe einer InputBox behandeln:

Delphi-Quellcode:

  Ergebnis := InputBox('Eingabe', 'Irgendwas', '');
  If (Ergebnis = '') then
    begin
      // Abbrechen wurde gedrückt, oder Feld leergelassen
    end
  else
    begin
      // Wert wurde eingegeben und OK wurde gedrückt.
    end;

[C64-Flo]

Danke !

Nur folgendes Problem bei der sache:

wenn ich das zb SO schreibe:

Delphi-Quellcode:

procedure TForm21.Button2Click(Sender: TObject);
var
eingabe:string;
begin
eingabe:=inputbox('gib was ein','sofort','defaulttext');
if (eingabe= '') then begin
                     label2.Caption:=('Eingabe abgebrochen.');
                     end

                 else begin
                     label2.Caption:=(eingabe+' Eingegeben');
                     end;
end;

....wird die eingabe aktion durchgeführt, auch WENN ´cancel´ gedrückt wird...
(in dem fall dann : ´defaulttext Eingegeben´ )

wie kann ich das lösen MIT einem defaulttext in der InputBox?

[edit=Admin]Delphi-Tags eingefügt. Bitte künftig selber machen. Danke. Mfg, Daniel[/edit]

[himitsu]

eingegebenes Wort := InputBox('Überschrift', 'Feldbeschreibung', 'Wort im Eingabefeld');

[C64-Flo]

ui.

hmmm...

Also entweder, ICH seh den Wald vor lauter Bäumen nicht (wie so oft.. )

ODER ihr versteht mein Problem nicht so ganz...


nochmal der reihe nach:

- Ich möchte eine ´InputBox´ einbauen MIT defaulttext in der Box
(soweit klappt das ja, wie himitsu das gezeigt hat..)

- Wenn der ´Cancel´-Button in der InputBox gedrückt wird, soll das Programm etwas bestimmte tun (in dem Falle logischerweise NICHTS, und einfach zurückkehren oä..)
..und das UNGEACHTET dessen, OB in der InputBox etwas steht, oder nicht (also sprich: der defaulttext stehengelassen wurde, ODER sogar was neues eingetippt wurde...)

- wenn ich die option von scp nutze und eine Abfrage mache:

if If (Eingabe = '') then begin usw , dann ist es egal, ob cancel gedrückt wurde, solange etwas in der InputBox steht, (also auch der default-text) WIRD die box behandelt als ob man ok drückt...


das muss doch möglich sein, je nach gedrücktem knopf eine bestimmte aktion zuzuweisen...?

[Luckie]

Kuck mal was in der Hilfe dazu steht:

Zitat von Delphi-Hilfe:

If the user chooses the Cancel button, InputBox returns the default string. If the user chooses the OK button, InputBox returns the string in the edit box.

[CalganX]

Hi,
Alternativ kann dir InputBoxQuery helfen. Anwendung, Syntax etc. findest du in der Hilfe.

Chris