Hallo,
ich habe ein mir unerklräliches Problem bei einem kleinen
FTP Programm welches auf NMFTP (Delphi 4) basiert.
Ich habe 2 Prozeduren.
Einmal folgende, die nach einem Klick auf einen Button aufgerufen wird:
procedure TForm1.Button2Click(Sender: TObject);
begin
Label7.Caption := 'disconnecting';
NMFTP1.Disconnect;
Label11.Caption:='Nach DISCONNECT';
end;
diese ruft dann die NMFTP1.Disconnect auf, die wie folgt aussieht:
procedure TForm1.NMFTP1Disconnect(Sender: TObject);
begin
Beep;
Label4.Caption := '
FTP-Verbindung zu ' + NMFTP1.Host + ' wurde getrennt!';
Screen.Cursor := crDefault;
Label10.Caption:='Prozedur DISCONNECT';
end;
Das funktioniert auch alles wunderbar. Das einzige Problem ist, dass man erst nach zweimaligem Klicken auf Button2 wieder an die stelle "Nach Disconnect" kommt. D.h. er springt erst wieder aus der NMFTP1.Disconnect in Button2Click wenn man nochmal auf den Button klickt.
Wobei es doch eigentlich so sein sollte, dass die Prozedur beendet werden sollte wenn sie abgearbeitet ist und das Programm wieder an die aufrufende Stelle (also in dem Fall ans Ende von Button2Click) springt. Woran könnte das liegen?
Ein weiteres Problem ist übrigens, dass nach ausführen der NMFTP1.Disconnect sämtliche close; Befehle (egal wo im Programm ich sie verstecke, hinter welchen Buttons sie liegen) nicht mehr funktionieren. Auch exit; oder Application.Terminate; bringt nix mehr, nur noch der schicke "Halt;" Befehl funktioniert. Weiß jemand eine Erklärung dafür?