AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

benutereingaben abfragen und reagieren

Ein Thema von EvilDragon · begonnen am 1. Feb 2004 · letzter Beitrag vom 2. Feb 2004
Antwort Antwort
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
Benutzerbild von Stanlay Hanks
Stanlay Hanks

Registriert seit: 1. Mär 2003
2.078 Beiträge
 
Delphi 2005 Professional
 
#2

Re: benutereingaben abfragen und reagieren

  Alt 1. Feb 2004, 17:07
Hi!

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

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

Man liest sich, Stanlay
  Mit Zitat antworten Zitat
Neg

Registriert seit: 16. Jan 2004
Ort: Berlin
63 Beiträge
 
Delphi 5 Professional
 
#3

Re: benutereingaben abfragen und reagieren

  Alt 1. Feb 2004, 17:21
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]
  Mit Zitat antworten Zitat
EvilDragon

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

Re: benutereingaben abfragen und reagieren

  Alt 2. Feb 2004, 00:31
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???
www.codedragon.de check this out!
  Mit Zitat antworten Zitat
Benutzerbild von Leuselator
Leuselator

Registriert seit: 18. Mär 2003
Ort: Berlin
589 Beiträge
 
Delphi 8 Architect
 
#5

Re: benutereingaben abfragen und reagieren

  Alt 2. Feb 2004, 00:40
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ß
Tim Leuschner
Programmierer = moderner Sysiphos: stets wenn er meint, den Stein seiner Dummheit auf den Berg des Wissens gewuchtet zu haben, erblickt er einen völlig neuen Aspekt und der Dummfels poltert mit Getöse zurück ins Tal der Unwissenheit...
  Mit Zitat antworten Zitat
grayfox

Registriert seit: 22. Jan 2003
Ort: Litschau
173 Beiträge
 
Delphi 4 Standard
 
#6

Re: benutereingaben abfragen und reagieren

  Alt 2. Feb 2004, 00:47
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
  Mit Zitat antworten Zitat
EvilDragon

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

Re: benutereingaben abfragen und reagieren

  Alt 2. Feb 2004, 07:38
@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*
www.codedragon.de check this out!
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 03:40 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