@ FAlter: Also das er sofort fertig war das hatte ich in einer früheren Version mal... Aber das war dann auf einmal wieder weg und ich habs dann auch nicht mehr gesehn.. Ich hab keine Ahnung woher das kommt. Und woher bei dir die Scrollbar kommt weiß ich auch nicht
@Luckie: Dann hast du das selbe Problem wie FAlter. Moment ich gucke mal nach wodran das liegen könnte
In der Version hier hab ichs versucht zu beheben.
@Faux: Ja das hab ich in einer bisher unveröffentlichten Version bei mir verbessert. Moment...
Also hier ist mal der Quelltext was passiert wenn man auf den Button klickt.
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var i : Integer;
begin
ListBox1.Clear;
Progressbar1.Position := 0;
Button1.Caption := '
Working...';
Button1.Enabled := false;
Ping.ReceiveTimeout := Spinedit1.Value;
for i:= 1
to 255
do begin
try
if Beenden
then Exit;
// Falls man das Programm schließen will
Ping.Host := '
192.168.' + IntToStr(Netz) + '
.' + IntToStr(i);
Ping.Ping();
except
Caption := Caption;
// Dazu will ich keine Kritik hören xD
end;
end;
Button1.Enabled := true;
Button1.Caption := '
Scan IP' + #39 + '
s';
end;
Das sieht ja bei euch so aus als würde er die Schleife gar nicht durchlaufen. Das kann aber nur sein denn:
if Beenden = true then Application.Terminated := true; //^^ Das steht natürlich nirgendwo im Prog drin ;)
Irgendwie seltsam...