Окно подтверждения удаления

[Andrey174rus]

Какой код будет допустим чтобы при нажатии на определенную кнопку удаления записи выводилось бы окно подтверждения удаления с заголовком "Удаление записи" с текстом "Вы действительно хотите удалить эту запись?" и ниже две кнопки "Да" "Нет" (только русские, а не Yes, No) ?

[TwiX]

messageBox

Добавлено:
Пример:

procedure TForm1.Button1Click(Sender: TObject);
var
    userResponse:integer;
begin
    userResponse := MessageDlg('Choose Yes no or Cancel?', mtConfirmation, mbYesNoCancel, 0);
    case userResponse of
      idYes: ShowMessage('You choose Yes');
      idNo: ShowMessage('You choose no');
      {if the response is Cancel nothing will happen...}
      idCancel: ;
    end;
end;

[QunneD]

procedure TForm1.Button1Click(Sender: TObject);
var
userResponse:integer;
begin
userResponse := MessageDlg('Choose Yes no or Cancel?', mtConfirmation, mbYesNoCancel, 0);
case userResponse of
idYes: ShowMessage('You choose Yes');
idNo: ShowMessage('You choose no');
{if the response is Cancel nothing will happen...}
idCancel: ;
end;
end;

Вроде ТС ясно объяснил что ему необходимо? Если вы не поняли, то, он хочет заменить стандартные названия кнопок "Yes","No","Cancel" на русские "Да","Нет","Отмена". А также копипастить чужой код плохо...

[TwiX]

Ой, извиняюсь... Не заметил...
Тогда создаём свою свою форму. Вызываем её form2.showmodal. На кнопках в ней прописываем ModalResult:="Ваше число". А потом смотрим результат form2.showmodal'a.

Добавлено:

Сообщение от QunneD

Вроде ТС ясно объяснил что ему необходимо?
...
А также копипастить чужой код плохо...

1) Или не надо "вроде" или без знака "?"
2) Я не говорил, что "быстренько набросал вот Вам:" - это ответ гугла на запрос "messageBox"

Добавлено к нижнему сообщению "дабы не разводить базар":
1) Цитату добавил =)
2) Но знак вопроса всё равно не нужен - три человека это уже подтвердили :P

[QunneD]

1) Или не надо "вроде" или без знака "?"

Все здесь правильно. Возможно у вас не формулируются то что я написал?

2) Я не говорил, что "быстренько набросал вот Вам:" - это ответ гугла на запрос "messageBox"

Видно что вы не поняли намек.

Не будем разводить тут базар

[Andrey174rus]

Сообщение от QunneD

Вроде ТС ясно объяснил что ему необходимо? Если вы не поняли, то, он хочет заменить стандартные названия кнопок "Yes","No","Cancel" на русские "Да","Нет","Отмена". А также копипастить чужой код плохо...

А как текст Confirm (заголовок окна) поменять?

[QunneD]

А как текст Confirm (заголовок окна) поменять?

Если правильно понял, то:

MessageBox(0, 'Текст', 'Заголовок окна', 0);

[Andrey174rus]

Сообщение от QunneD

Если правильно понял, то:

MessageBox(0, 'Текст', 'Заголовок окна', 0);

Выдает ошибку [Error] sql.pas(272): Incompatible types: 'TMsgDlgType' and 'String'

[raxp]

а что поиграться с флагами messagebox нельзя?

case MessageBox(Handle,'Вы действительно хотите удалить эту запись?','Удаление записи',4) of
  mrYes: ;
  mrno:
end

зы: метод работает, если винд русифицирован... так что совет про отдельную форму не лишен смысла

[TwiX]

MessageBox(handle, PChar('Удалить?'), PChar('Подтвержение удаления'),0);
Вот. Но кнопки так не изменить.