F1Book没有OnSheetChange事件(切换工作簿时触发),有没有好的办法。(50分)

我先说个笨办法，实在不行就用这招。
放个timer,每秒检查一次F1book.Sheet。如果改变就触发。

//use onselchangeEvent;
private
FActiveSheet : Integer;
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.F1Book1SelChange(Sender: TObject);
begin
if F1Book1.Sheet<>FActiveSheet then
begin
FActiveSheet := F1Book1.Sheet
showmessage(F1Book1.SheetName[F1Book1.Sheet]);
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
FActiveSheet := F1Book1.Sheet
end;

呵呵，我糊涂了。一时没转过弯来。
楼上的解法正确的。给分了。

接受答案了.