Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "WinAPI";
Текущий архив: 2003.06.26;
Скачать: [xml.tar.bz2];

Вниз

Как 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 вся ветка

Форум: "WinAPI";
Текущий архив: 2003.06.26;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.027 c
1-84183
Dwemer_
2003-06-11 16:20
2003.06.26
Ошибка при создании методом TStrings.Create


14-84735
Дремучий
2003-06-05 18:54
2003.06.26
Кто из форумцев пользуется клиентом форума? Каким?


3-83956
McSimm2
2003-06-04 08:16
2003.06.26
Оптимизация работы программы


4-84820
kravchuk
2003-04-23 11:12
2003.06.26
Список процессов на удаленном компьютере


1-84393
Rel_
2003-06-09 14:05
2003.06.26
кол-во своб. памяти





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский