Скачать: CL | DM;

Как 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 кило

---

← →
Proton ©   (2003-04-23 19:48) [6]

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

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;


---

← →
Evgeny ©   (2003-04-24 05:03) [7]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.199 c