<!--CodeS-->
procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption := ''; // 실행되지 않음
IdIcmpClient1.Host := 'www.naver.com';
IdIcmpClient1.Ping();
end;
procedure TForm1.IdIcmpClient1Reply(ASender: TComponent;
const AReplyStatus: TReplyStatus);
begin
Label1.Caption := 'ping';
end;
<!--CodeE-->
안녕하세요?
버튼을 누르면 라벨을 지우고 핑을 실행하는 것입니다.
핑은 되는데 라벨이 안지워집니다.
이유를 알려 주시기 바랍니다.
안녕히 계세요.
Label1.Caption := '';
Label1.Update; // 갱신