| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как MessageBox задать кнопки со своим текстом? [D7, WinXP]

Aleksandr ©   (2003-04-23 12:20:00) 

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

---

Evgeny   (2003-04-24 05:03:00) [1]

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

---

Proton   (2003-04-23 19:48:00) [2]

Из анналов Российского политбюро

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;


---

12   (2003-04-23 17:19:00) [3]

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

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

---

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

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

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

---

DVM   (2003-04-23 12:34:00) [5]

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

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

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

---

Aleksandr   (2003-04-23 12:28:00) [6]

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

---

DVM   (2003-04-23 12:22:00) [7]

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

---

Наверх