Einzelnen Beitrag anzeigen

EvilDragon

Registriert seit: 15. Sep 2003
Ort: Berlin
143 Beiträge
 
Delphi 7 Enterprise
 
#1

benutereingaben abfragen und reagieren

  Alt 1. Feb 2004, 16:30
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!
www.codedragon.de check this out!
  Mit Zitat antworten Zitat