Текущий архив: 2003.06.26;
Скачать: 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 вся ветка
Текущий архив: 2003.06.26;
Скачать: CL | DM;
Память: 0.45 MB
Время: 0.029 c
