Code: Select all
procedure Tfmain.SwitchtochClick(Sender: TObject);
var
chinfo: TChannelInfo;
e: PEPGInfo;
chid: integer;
begin
e := TV.Selected.Data;
chid := FindChId(e^.wSat, e^.wNetID, e^.wSID);
chinfo.dwSize := sizeof(TChannelInfo);
chinfo.wNID := e.wNetID;
chinfo.wSID := e.wSID;
chinfo.wSatPos := e.wSat;
chinfo.dwChId := chid;
if chid >= 0 then
begin
SendMessage(hwndDD, WM_MODULE_MSG, DDMODAPI_SET_CHANNEL_BY_CHID, Integer(@chinfo));
end;
end;