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!