X11
Silver Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Dronton2, спасибище. Уважаемые, есть ещё вопрос: нужно удалить все записи из этого же грида, где стоит флажок в определённом поле. Я думаю пробежаться по всем записям, и если флажок "поднят", то выделяем её, а потом DeleteSelection, но что-тоя не так делаю Код: sgMesOpend - колонка типа CheckBox procedure TfmInboundMes.actDeleteOpendExecute(Sender: TObject); Var i:integer; begin if (MessageBox(Application.ActiveFormHandle, PAnsiChar('Удалить прочитанные сообщение вместе с файлами?'), 'Удаление', MB_ICONQUESTION or MB_YESNO or MB_DEFBUTTON1) = idYes) then begin for i := 0 to sgMes.DataController.RecordCount-1 do begin if sgMes.DataController.Values[i, sgMesOpend.Index] = true then sgMes.DataController.SelectRows(i,i); end;//for end;//if end; |
|