1.
TChannelCap = class(TCollectionItem)
public
property ChannelID: Integer;
property Captioning: Boolean;
property PatLSH: string;
end;
2.由于我不生成属性的 Set 函数,所以我手动添加属性的 read 和 write,在完成 ChannelID时录制宏:
TChannelCap = class(TCollectionItem)
public
property ChannelID: Integer read FChannelID write FChannelID;
property Captioning: Boolean;
property PatLSH: string;
end;
3.播放宏,第一次正确,第二次时,光标应回到行首,但没有到行首
TChannelCap = class(TCollectionItem)
public
property ChannelID: Integer read FChannelID write FChannelID;
property Captioning: Boolean read FCaptioning write FCaptioning;
property PatLSH: string;
end;
宏我肯定录正确了,似乎是按 Home 键时没被录下来
|