This event is triggered when a change of the DCD signal is detected.
| Delphi | OnDcd(Sender: TObject; State: Boolean);
|
|---|---|
| BCBuilder | OnDcd(TObject * Sender, bool State);
|
Sender
Event source.
State
DCD signal state.
//
// Event handler by example of CTS signal event handler
//
procedure TForm1.FTSPCControl1Cts(Sender: TObject);
begin
try
if FTSPCControl1.Cts then
begin
// Todo: add your code
end;
except
on e:FTSPCException do
begin
application.MessageBox(PChar('Error: ' +
inttostr(e.ErrorCode) + ' - ' +
e.ErrorSource), 'Error!', MB_OK +
MB_ICONERROR);
end;
end;
end;