摘要: procedure TForm1.Button1Click(Sender: TObject); var tempBookMark: TBookMark; begin if DBGrid1.SelectedRows.Count >1 then s:= '真的要删除这些记录吗?'; if Application.MessageBox (Pchar(s),'删除多条记录',mb_iconi... 阅读全文
posted @ 2009-03-31 00:00 DELPHI&.NET初学者[TECSOON WENDAY] 阅读(265) 评论(0) 推荐(0) 编辑