Цитата:
Сообщение от windaws
на кнопку пишешь код:
Код:
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 Но там нельзя указывать имя выскакивающего окошка.
|
СПАСИБО БОЛЬШОЕ!!! ПОМОГЛО ОЧЕНЬ!!!
Подскажите пожалуйста как сделать чтобы при нажатии кнопки Button можно было добавить запись в DBGrid но при этом тоже спросить Вы действительно желаете добавить новую запись?