Цитата:
|
Сообщение от Nat111
Подскажите пожалуйста как с помощью кнопки удалить запись с компонента DBGrid, чтобы перед удалением он запрашивал "Вы точно хотите удалить запись"?
|
на кнопку пишешь код:
Код:
procedure TForm1.ToolButton5Click(Sender: TObject);
Var ExB: WORD;
begin
ExB:=MessageBox(handle,pchar('Удалить товар из списка?'),pchar('Подтверждение удаления'),33);
if Exb=IDOK then
dbgrid1.datasource.dataset.Delete else exit;
end;
я так делаю
раньше делал через MessageDlg Но там нельзя указывать имя выскакивающего окошка.