有关delphi类成员指定的问题?

[乡村]

我在有些delphi经典示例中经常看到一个现象,我无法完全理解,所以想请教请教大家.
程序中声明了一个TServerSocket(stThreadBlocking)实例,当触发GetThread事件后在ClientExecute中同步执行在窗体的ListView中添加该线程.主要代码如下:
procedure TfrmMain.AddClient(Thread: TServerClientThread);
var
Item: TListItem;
begin
Item := ConnList.Items.Add;
Item.Caption := IntToStr(Thread.ClientSocket.LocalPort);
Item.SubItems.Add(Thread.ClientSocket.RemoteAddress);
if AShowHost.Checked then
begin
Item.SubItems.Add(Thread.ClientSocket.RemoteHost);
if Item.SubItems[1] = '' then Item.SubItems[1] := SHostUnknown;
end else
Item.SubItems.Add(SNotShown);
if Thread is TServSocketThread then
begin
Item.SubItems.Add(DateTimeToStr(TServSocketThread(Thread).LastActivity));
end;
Item.Data := Pointer(Thread);
UpdateStatus;
end;

代码中最后第五行为什么不用Thread.LastActivity来引用属性呢?

[halfdream]

晕,TServSocketThread是用户定义的线程类,
LastActivity是这个线程类的用户定义属性..

而传入参数类型是TServerClientThread,
Thread: TServerClientThread

它自已是没有LastActivity属性..

[乡村]

不会吧，没人知道吗？

[zzlingaaa]

强制类型转换.

[web700]

Thread is TServSocketThread
////// 看这句