[阅读: 453] 2005-11-19 08:40:51
procedure TWebForm1.ShowSelectedGroup;
var
Item:DataGridItem;
JS:string;
S:string;
begin
///这段代码演示了从DataGrid的CheckBox里读哪个记录被Check了,并用对话框显示结果
///用对话框显示结果的方法是写JAVASCRIPT。这里演示如何将JAVASCRIPT从服务器端写到客户端
S:='';
JS:='<script language=javascript> alert("';
for Item in DataGrid1.Items do
begin
if CheckBox(Item.FindControl('Cb')).Checked then
begin
S:=S+Item.Cells[0].Text+'; ';
end;
end;
JS:=JS+S+'")</script>';
RegisterClientScriptBlock('系统消息', JS);
end;