benutereingaben abfragen und reagieren

[EvilDragon]

ich lass beim klick auf button das programm mehrere editfelder überprüfen ob was drin steht wenn ja kommt momentan eine message mit einer bemerkung, jetzt möchte ich aber, das wenn z.b.

# klickt der nutzer auf ja (ist true) dann.....sonst...
#
oder:
# klickt der nutzer auf ja (true) dann
# klickt der nutzer auf abbrechen (false) dann

nur wie bekomme ich das hin, hab zwar was gelesen über InputQuery aber raffe das nicht...
hier mein code:

Delphi-Quellcode:

procedure TForm2.Button2Click(Sender: TObject);
begin
//verzeichnisskram
  if Edit1.Text = ('') then begin
    ShowMessage('Sie müssen ein ZielOrdner angeben!');
    exit;
  end
  else
  if Edit2.Text = ('') then begin
    ShowMessage('Kein Unterordner angegeben (z.B. CD1 oder Albumtitel)');
    exit;
  end
  else begin
    if DirectoryExists(dir+'\'+Edit1.Text) then
      ShowMessage('Zeilordner ist vorhanden!')
// Hier soll statt ShowMessage eine Nachricht kommen bei die der nutzer jao der abbrechen klicken
// kann, und dann soll das programm wie folg reagieren siehe # oben
      else begin
        if DirectoryExists(dir+'\'+Edit1.Text+'\'+Edit2.Text) then
          ShowMessage('Unterordner ist vorhanden!')
// Hier ebenfals diese gefragte messagebox
        else begin
          ForceDirectories(dir+'\'+Edit1.Text);
          ForceDirectories(dir+'\'+Edit1.Text+'\'+Edit2.Text)
        end
      end
  end;
//Dateikram
  if Edit3.Text = ('') then begin
    ShowMessage('Bitte einen Dateinnamen angeben!');
    exit;
  end
  else begin
//datei kopieren
end
end;

danke schon mal für die hilfe!

[Stanlay Hanks]

Hi!

1. Könntest du bitte deinen Beitrag editieren und Satzzeichen einfügen? :wink: Dein Beitrag ist ziemlich schwer zu verstehen, so ganz ohne Punkt und Komma :wink:

2. Könntest du dein Problem bitte etwas genauer erklähren? Wenn du evt. eine InputBox haben möchtest, in welche der User etwas eingeben will, verstehe ich den Zusammenhang leider nicht ganz :gruebel:

Man liest sich, Stanlay :hi:

[Neg]

Schuss ins Blaue (hab deinen Text zum Teil nicht sooo wirklich verstanden):

MessageDlg

[edit]Jetzt, wo du nochmal etwas umformuliert hast, bin ich mir sicher, dass du nach MessageDlg suchst. Einfach mal in der OH stöbern.[/edit]

[EvilDragon]

ich glaub hast recht, das ist dat was ich suche, allerdingst werd ich aus dem beispiel nicht sehr schlau...

Delphi-Quellcode:

procedure TForm2.Button4Click(Sender: TObject);
begin
  MessageDlgPos('Are you there?',mtConfirmation, mbYesNoCancel, 0, 200, 200, );
end;

weiß net wie man das nun genau nutzen, also so wie ich dat brauch... stellt sich jemand bereit mir das genauer zu erläutern???

[Leuselator]

Delphi-Quellcode:

  if MessageDlg('Deine Ansprache hier.', mtConfirmation, [mbOK,mbCancel], 0) = mrOk
    then begin // ok gedrückt
      // Deine Aktionen für OK hier
    end else begin // Cancel gedrückt
      // Deine Aktionen für Cancel hier...
    end;

Gruß

[grayfox]

hallo evildragon!

an deiner stelle würd ich mir 'opendialog' und 'savedialog' im register 'dialogs' ansehen.
dort lässt du den user den verzeichnisnamen des quellfiles und des zielfiles festlegen - das erspart dir die prüfung, ob die verzeichnisse vorhanden sind und dem user den frust, wenn er blind verzeichnis- und filenamen in editfelder eintippt und danach die lapidare meldung 'verzeichnis nicht vorhanden' erscheint...
du kannst ihm ja auch die möglichkeit bieten, neue verzeichnisse anzulegen

mfg, stefan

[EvilDragon]

@Leuselator
danke danke, jetzt blick ich durch nur noch anwenden *g*

@grayfox, wehre besser aber das was ich brauch hat mit dem programm zu tun bzw. deren verhältnissen ;)

EDIT:

kann nur danke sagen, ist ganau das was ich gesucht hab *freu*