Поиск:

Ответ в темуСоздание новой темы Создание опроса
> перехватить сообщение Delete record? 
:(
    Опции темы
Zajigaev
Дата 28.4.2009, 16:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 9
Регистрация: 30.1.2009

Репутация: нет
Всего: нет
надо русифицировать сообщение при удалении записи 
вместо Delete record? надо по-русски 
помню делал, все очень просто
но забыл что и как
спасибо
PM MAIL   Вверх
Лапоть
Дата 28.4.2009, 19:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 185
Регистрация: 3.4.2009

Репутация: нет
Всего: 2
DataSetBeforeDelete() тебе в помощь...
PM MAIL   Вверх
Keeper89
Дата 28.4.2009, 19:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 1
Всего: 58
Код

procedure TForm1.ADOTable1BeforeDelete(DataSet: TDataSet);
begin
  if (MessageBox(0,
                PChar('Удалить запись?'),
                PChar(Caption),
                MB_YESNO + MB_ICONWARNING) = ID_YES) then
    ADOTable1.Delete;
end;



--------------------
Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image
PM MAIL WWW   Вверх
Kbl4AH
Дата 29.4.2009, 07:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 741
Регистрация: 1.4.2008
Где: Вятка

Репутация: 6
Всего: 15
Код

procedure TForm1.ADODataSet1BeforeDelete(DataSet: TDataSet);
begin
  if (MessageBox(0,
                PChar('Удалить запись?'),
                PChar(Caption),
                MB_YESNO + MB_ICONWARNING) = ID_NO) then
    ADODataSet1.Cancel;
end;
PM MAIL ICQ   Вверх
Keeper89
Дата 29.4.2009, 11:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 1
Всего: 58
Kbl4AH, +1, я неправильно записал  smile 


--------------------
Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image
PM MAIL WWW   Вверх
Zajigaev
Дата 29.4.2009, 13:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 9
Регистрация: 30.1.2009

Репутация: нет
Всего: нет
ну в этом случае я имею два сообщения об удалении
первое на английском
а второе из метода DataSet1BeforeDelete на русском

как запретить первое?
в опциях dbgrid только для ctrl+Del работает
а если из dbNavigator - то сообщение на английском все равно лезет
спасибо
PM MAIL   Вверх
insoft
Дата 29.4.2009, 13:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 196
Регистрация: 14.2.2007
Где: Тюменская область , г.Тобольск

Репутация: 3
Всего: 3
Цитата(Zajigaev @  29.4.2009,  13:34 Найти цитируемый пост)
а если из dbNavigator - то сообщение на английском все равно лезет

ConfirmDelete выствь в False
PM MAIL WWW   Вверх
Zajigaev
Дата 29.4.2009, 13:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 9
Регистрация: 30.1.2009

Репутация: нет
Всего: нет
это работает только если пользователь удаляет через ctrl+Del
аа если из dbNavigator - то сообщение на английском все равно лезет 
ConfirmDelete =false в этом случае не помогает
PM MAIL   Вверх
insoft
Дата 29.4.2009, 13:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 196
Регистрация: 14.2.2007
Где: Тюменская область , г.Тобольск

Репутация: 3
Всего: 3
Цитата(Zajigaev @  29.4.2009,  13:48 Найти цитируемый пост)
ConfirmDelete =false в этом случае не помогает

при ConfirmDelete =false сообщение вообще не должно появляться
PM MAIL WWW   Вверх
Frees
Дата 29.4.2009, 13:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

Репутация: 23
Всего: 54
либо исходники VCL перевести текст этого сообщения в DBConsts.pas помоему


--------------------
Кольцов Виктор Владимирович
PM MAIL ICQ   Вверх
insoft
Дата 29.4.2009, 13:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 196
Регистрация: 14.2.2007
Где: Тюменская область , г.Тобольск

Репутация: 3
Всего: 3
Цитата(Frees @  29.4.2009,  13:51 Найти цитируемый пост)
либо исходники VCL перевести текст этого сообщения в DBConsts.pas помоему 

ага
вот они
Код

  SDeleteRecordQuestion = 'Delete record?';
  SDeleteMultipleRecordsQuestion = 'Delete all selected records?';
PM MAIL WWW   Вверх
Zajigaev
Дата 29.4.2009, 14:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 9
Регистрация: 30.1.2009

Репутация: нет
Всего: нет
а как откомпилировать dbconsts ?
спасибо
PM MAIL   Вверх
Frees
Дата 29.4.2009, 14:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

Репутация: 23
Всего: 54
Цитата(Zajigaev @  29.4.2009,  16:15 Найти цитируемый пост)
а как откомпилировать dbconsts ?

поправить файл и сделать билд своего проекта не помогает?

Это сообщение отредактировал(а) Frees - 29.4.2009, 14:22


--------------------
Кольцов Виктор Владимирович
PM MAIL ICQ   Вверх
Zajigaev
Дата 29.4.2009, 14:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 9
Регистрация: 30.1.2009

Репутация: нет
Всего: нет
нет
PM MAIL   Вверх
Zajigaev
Дата 29.4.2009, 15:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 9
Регистрация: 30.1.2009

Репутация: нет
Всего: нет
переписал DBconsts.pas в свою директорию, поменял SDeleteRecordQuestion , добавил в проект
а он компилиться не хочет
PM MAIL   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Базы данных и репортинг"
Vit
Петрович

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами


Обязательно указание:

1. Базы данных (Paradox, Oracle и т.п.)

2. Способа доступа (ADO, BDE и т.д.)


  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи
  • Вопросы по SQL и вопросы по базам данных не связанные с Дельфи задавать здесь

FAQ раздела лежит здесь!

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Vit, Петрович.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Базы данных и репортинг | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0962 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.