Nach Exception Code ausführen

ranger81

Hallo, gleich mal den Codeausschnitt mit dem ich Probleme habe:

void __fastcall TForm1::Button1Click(TObject *Sender)
{
Label3->Caption = "aktualisiere, bitte warten ...";
Label3->Update();
IdIcmpClient1->Host = Edit1->Text;
try
{
    IdIcmpClient1->Ping("",0);
}
catch(EIdSocketError *Error)
{
    Label2->Caption = Error->Message;
}
Label3->Caption = "Fertig";
Label3->Update();
}

Problem ist dass er den Code nach dem "catch{..}" nicht mehr ausführt, sodass sich mein Label3 Inhalt nicht ändert. Wenn ich da unten nen anderen Code reinschreibe den führt er aus, nur das Label will er einfach nicht ändern...

[ Dieser Beitrag wurde am 11.01.2003 um 21:34 Uhr von ranger81 editiert. ]

WebFritzi

Ich tappe zwar im Dunkeln, aber vielleicht hilft ja ein einfaches Application->ProcessMessages().

ranger81

nee, so:

Label3->Caption = "Fertig";
Label3->Update();
Application->ProcessMessages();

gehts auch nicht, der ändert einfach den text nich,a lso die caption vom label3

ranger81

hat sich erledigt, der timer der den button-click aufruft war zu kurz konfiguriert, sodass die funktion gar nicht fertig wurde, da wurde schon der caption text wieder auf bitte warten geändert

sorry, aber gerade erst gefunden