调用TListView事件

procedure TfrmMainform.FormActivate(Sender: TObject);  -//-fmx窗口
begin
      DisplayAllSeminars;  //显示所有记录
      if ListView1.Items.Count>=0 then
      begin
        ListView1.ItemIndex:=0;  //TListViewItem = class(TListItem)    设置默认选择第一个

        ListView1ItemClick(self,   ListView1.Items.Item[0]  as TListViewItem  );  //单击第一个触发的事件

// ListView1ItemClick(ListView1, ListView1.Items[0] );
      end;

end;