Zitat von
technik05:
Code:
procedure TForm1.Panel1Click(Sender: TObject);
begin
IdIcmpClient1.Host := '192.168.0.222';
IdIcmpClient1.Ping();
If IdIcmpClient1.ReceiveTimeout = 5000 Then
pannel1.Color :=red
else pannel1.Color :=green;
end;
was ist hier falsch ?????
Keine Ahnung, sag du es uns, du sitzt vor der
IDE, welchs die Fehlermeldung ausgibt.