Как MessageBox задать кнопки со своим текстом?

← →
Aleksandr © (2003-04-23 12:20) [0]

Возникла необходимость перед пользователем выкинуть окошко с кнопками "Повторить" и "Завершить программу". Причем по-русски, учитывая, что у кого-то винда может быть не русской. И, соответственно, смочь получать два результата закрытия этого окна. Как это можно сделать? Очень уж не хочется делать программу беременной лишними TForm.

← →
DVM © (2003-04-23 12:22) [1]

Сделать свой диалог. Это пара пустяков.

← →
Aleksandr © (2003-04-23 12:28) [2]

Вам, наверное, пара пустяков. А мне - китайская грамота. Мои познания в создании окон с WinApi ограничиваются созданием немодальной формочки с текстом в ней. :(

← →
DVM © (2003-04-23 12:34) [3]

Берешь редактор ресурсов (из VC6 или BC++5). Рисуешь в нем диалог, какой хочется. Сохраняешь в *.res файл.
Подцепляешь файл к своей программе.

Подробнее можно здесь почитать:

http://web.ict.nsc.ru/~cancel/delphi/vclfree.html/file3.html

← →
Крот © (2003-04-23 13:14) [4]

> Очень уж не хочется делать программу беременной лишними
> TForm

А что, программа сильно потяжелеет от одной TForm?

← →
12 (2003-04-23 17:19) [5]

> А что, программа сильно потяжелеет от одной TForm?

Если написана на Апи то на 300 кило

Из анналов Российского политбюро
procedure TForm1.Button1Click(Sender: TObject); var AMsgDialog: TForm; ACheckBox: TCheckBox; begin AMsgDialog := CreateMessageDialog ("This is a test message.", mtWarning, [mbYes, mbNo]); ACheckBox := TCheckBox.Create(AMsgDialog); with AMsgDialog do try Caption := "Dialog Title" ; Height := 169; with ACheckBox do begin Parent := AMsgDialog; Caption := "Dont show me again."; Top := 121; Left := 8; end; if (ShowModal = ID_YES) then begin if ACheckBox.Checked then begin //... do if checked end; //... do if NOT checked end; finally ACheckBox.Free; Free; end; end;

>Proton © (23.04.03 19:48)
Можно и так конечно, но просили без TForm, так что лучший вариант описать диалог все же в ресурсе.

Как MessageBox задать кнопки со своим текстом? Найти похожие ветки