Здравствуйте, Daimond, Вы писали:
D>Здравствуйте, AlexVinS, Вы писали:
AVS>>тогда что-то типа этого:
AVS>>
AVS>>procedure TForm1.Action1Update(Sender: TObject);
AVS>>begin
AVS>> with Sender as TAction do
AVS>> begin
AVS>> Enabled:=WaitForSingleObject(Modem.Handle, 0) <> WAIT_OBJECT_0;
AVS>> end
AVS>>end;
AVS>>
D>Так у меня FeeOnTerminate = true, так что когда он умрет, обращение к Modem->Handle должно сгенерировать исключение. Или я ошибаюсь?
Да, а если и не будет то будет еще хуже
А зачем тебе FreeOnTerminate?
