procedure TOpenCad.dbgrd1CellClick(Column: TColumn);
var
str:string;
oldcur:TCursor;
begin
oldcur:=Screen.Cursor;//屏幕焦点
Screen.Cursor:=crHourGlass;
if wb1.Busy then
wb1.Stop;
str:=qryselect.FieldbyName('cadstr').AsString;
wb1.Navigate(str);
Self.FocusControl(wb1);
Screen.Cursor:=oldcur;
end;